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News and Reviews 


by Mike Dunn, co-Editor 

For those of you who have been disappointed by the lack of many 
new programs on our bulletin board, relief is near. Our two 8” drives 
should be on line by the time you receive the newsletter, adding 1.2 
Mbytes of storage — enough for a long time, | hope. Speaking about 
the bulletin board, when we started it over 2 years ago, we obtained 
the first Percom double-density double drives made. They worked day 
and night, logging in and uploading programs for several thousand 
calls a month with no difficulty for all that time. During some routine 
maintainance work a few weeks ago, they were shut off, and when 
turned on again, did not work. We sent them back to Percom for repair 
— they put in all new boards (Since ours were “Antiques” which were 
no longer being made, and they probably forgot how they worked) 
cleaned and checked the drives, and charged us $59 for two drives!! 
There are many very fancy drives now on the market, but can they beat 
this? 

We have a number of new disks in the program library, as well as 
new documentation and a new library list. These include Education 
Disks #6 and #7 at $8 each, Best of ACE #8 at $15, Action! Disk #1 at 
$15, and a new Utility Disk 43 including POLYCOPY which allows you 
to select specific programs to copy, QuickDOS, various test programs, 
MemMap, etc. Please send 50c ($1 Overseas) to the Ness' at 374 
Blackfoot, Eugene, OR 97404 for an 8-page list just updated. 
Remember, most of our programs now are documented and are also 
available on cassette for the same price. 

Elsewhere in this issue (| hope!) is a review by Kirt Stockwell on the 
great O.S.S. Program BASIC XL ($99). This very advanced BASIC has 
many neat fetures, but also is much faster than Atari BASIC. As an ex- 
ample, KONG from the March issue is much faster, smoother and 
more challenging —without any changes to the programs. You just 
load it in like Atari BASIC, as it is completely compatible. A cheap way 
to get almost machine language speed and action without the sweat. 


For EPSON owners. 

Do you own an EPSON printer? Do you want to customize it? The 
FingerPrint add-on board (Dresselhaus, 837 E. Alosta, Glendora, CA 
91740 ($70) turns the 3 buttons (Online, FF, LF) into a powerful way to 
program your printer. Change to compressed, emphasized, italic or 
even the very tiny “subscript” print handy for disk labels. Does much 
more, and very nice to have. Requires you to take your printer apart, 
and some dexterity required. Another way to customize your EPSON is 
described in the CSRA Newsletter as quoted from the Charlotte PC 
Newsletter: 


EPSON MX-80 Modificaton 
by Wayne Setzer 
(Article modificated by M.D.) 

This article describes modifications to the Epson MX-80 to allow 
you to use both the Graftrax-80 character set as well as the Graftrax 
Plus set on the same printer, so you can use block graphics as well as 
the advanced features of the Plus. 

The Epson uses 3 2716 (2K) EPROM's for the character set. By using 
2732's (4k), and a switch to use either the lower or upper 2k, you can 
Switch to the character set you want. First program the 2732's with the 
Graftrax-80 in the lower 2k and the Graftrax-Plus in the upper 2k. Install 
the EPROM's in their respective Sockets, leaving out pin 21. Tie all the 
pin 21's together with a small gauge wire (a wire wrap tool works fine 
—M.D.). Connect pin 21 to the common post of a SPDT switch, and 
mount switch on the back of the printer. Connect one side of the SPDT 
Switch to Y25 volts and the other side to ground. (A ground can be 
found marked on the right circuit board, and 5 Volts can be obtained 
from the front part of the cut J1, which must be cut if you use an 
EPROM instead of a ROM-M.D.). To use the Graftrax-80, set the switch 
to ground, and for Graftrax-Plus to + volts. Be sure to turn printer OFF 
before changing the switch setting. (FingerPrint works with the above 
modification, somehow sensing the different printer codes —M.D.). 

Because a different team assembles the text part and the listings 
part of the newsletter, two articles last month did not have the listings 
printed due to a lack of communication. They are in this issue— 
Device Handlers by Greg Menke and the TidBits article by Dale Lutz. 
Sorry! 

Also, the Global Change program last month had an omission: 
change Line 800 to read at the end “THEN 920”. 





BUMPAS REVIEWS 


Eastern House Software (3239 Linda Dr., Winston-Salem, NC 27106) 
has done Atari, Inc. a BIG favor. They have removed one of the most 
important reasons one might want to keep an 800 rather than buying 
an XL. 

MONKEY WRENCH II is now available in cartridge form for Atari XL 
computers. The price will be $50 as of June 1, 1984 (the announced 
date of availability). We'll be sure to let you know how well it works as 
Soon as we've seen a copy. 


LETTER WIZARD (Datasoft, $50) is the latest word processor for the 
Atari. l've been using TEXT WIZARD for nearly three years now, so I’ve 
been eagerly awaiting Datasoft's improved product. And it is improv- 
ed. There is a Main Menu from which the user may proceed to Edit a 
document, to Print a document, or to go to a Menu of disk file manage- 
ment functions including: Formatting a disk, renaming, deleting, lock- 
ing and unlocking files. The disk directories are displayed in double- 
column format on the screen, with the Space bar used to continue if 
more than one page is needed. The disk directories may also be called 
up from within the editing mode. There is a status window at the bot- 
tom of the Edit screen showing the file name, amount of RAM 
available, and the number of words and disk sectors in the file. 

Many program features are applied by use of the three function keys 
in combination with other keys. Letter Wizard moves away from the 
use of Control Key combinations to permit users to embed control 
characters in the text of documents. The format for these embedded 
commands requires the Atari Logo key (inverse) to type the letters 
"ch", together with the decimal number of the control code. This 
feature allows me to get more use from my IDS printer than is possible - 
with most word processors. A very powerful feature. The manual says I 
must precede each control code with (inverse) “ch27” (the decimal 
value of the ESC key), but for the IDS at least, this code is not helpful. 
Only the control code of the printer feature I’m using is required. Since 
the inverse key must be toggled on and off, the program features re- 
quiring this key usually require two more key-strokes than other word 
processors. 

Letter Wizard adds two new cursor controls: Now the user can jump 
to the beginning or end of any line. And flexibility in handling margins 
is expanded by permitting "relative" margins. Without resetting the 
margins of the printed page, you now may set off the margins of 
paragraphs within your text. The temporary margins may be inside or 
outside the margins of the document as a whole. A very sensible and 
easy way to handle this problem. No more calculating how wide the 
paper is. Now you need only decide how many spaces the margins will 
move, inside or outside your other margins. 

You no longer have to worry about having the cursor at the top of 
the file for saving and loading. If you want to save less than all of a 
document into a file, separate commands are available to save 
everything below the cursor. In the same manner, files may be append- 
ed below the cursor with another command. If you make a mistake 
when you delete a block of text, a new command permits you to 
restore the deleted block. This is a handy feature! 

Now for the bad news. The program does not function with any dou- 
ble density disk drive. | can't help think this is a severe marketing er- 
ror. Double density drives are flooding the market for the Atari. This 
program requires users to take a step backwards. And after I’ve con- 
verted all my text files to double density, too! Less important, Letter 
Wizard has abandoned the support for double-column printing. My 
guess is the greater printer support achieved in Letter Wizard has 
made it necessary to drop this feature. 


Printer support includes three models of Epson, Atari printers, Cen- 
tronics, Microline, NEC, C.ltoh, and Gemini. The “other” category is 
the one | must use for the IDS. I still don't seem to be able to underline 
or right-justify proportional print. With Letter Wizard, | gain expanded 
print. 

There's even a bit of chrome you might appreciate: Screen color and 
intensity can be selected by the user. It appears to permit one to cycle 
through all 256 colors. You can make it a green screen, or an amber 
Screen, or a screen of your own choosing. Fun to play with, you'll pro- 
bably tire of it since the default screen comes up the same each time 
the program boots. Also on the disk is a BASIC program to use to con- 
vert FILEMANAGER 800+ (Synapse Software) files for direct use 
within Letter Wizard files. 

Letter Wizard is an excellent, full-function wordprocessors for any 
purpose, and is an exceptionally good value for the price. 

MASK OF THE SUN (Broderbund, $40) is a 4-disk graphic adventure 
with a very imaginative storyline. You have a lot of open territory to ex- 
plore in your jeep, tooling around in Central Mexico. You have at least 
3 Aztec ruins to explore, each of which has more than one level. There 
are secret doors, one-way doors, objects and artifacts to collect. 

The goal of the game is to find the Mask of the Sun and decipher the 
cure which will save your life. Page flipping of graphics screens is us- 
ed to simulate animation. The program replies sarcastically to some of 
your moves. You have an enemy trying to stop you, or beat you to your 
goal. And there are dangers aplenty to spoil your progress. This is an 
excellent game, and a fantastic value for the price. Adventure gamers 
will be lost for hours playing this one. 


DIMENSION X 


DIMENSION X(Synapse Software $30), aside from being a graphics 
spectacular is also very playable and “wears well." It is sort of a cross 
between STARRAIDERS and Synapse's own game, ENCOUNTER. 

The objective of DIMENSION X is to eliminate enemy saucers 
before they eliminate you and/or get control of the “Capital” 
(represented as a square on a grid map in the upper right corner of the 
screen display). 

As the game begins an intialization screen appears which give you 
choices as to the level you wish to play,the strength of your shields, 
and the number of alien saucers you wish to encounter. When you 
make these choices you are immediately projected to the main screen 
display — and what a display it is! You are in the cockpit of your own 
ship looking over a scrolling 3-D landscape with mountains and tun- 
nels in the background and a blue sky and clouds overhead. Moving 
your joy stick forward moves your ship forward over the checkerboard 
surface of the planet. You may also move back or from side to side by 
moving the joy stick. This visually gives you the effect of “zooming” in 
and out as well as traveling at great speed. 

Enemy saucers appear from time to time and fire at your ship. You 
either dodge their shots while firing back or your shields are destroyed 
and the game ends. 

The top of the screen has, in addition to (1) the grid map, (2) a scan- 
ner to help you locate enemy saucers, (3) a fuel gauge, (4) a shield 
status indicator, as well as (5) a message board which warns you of 
various hazards. Despite all of these "aids" and the graphic display, 
the screen is not cluttered. 

To move from one grid to another it is necessary to pass through 
tunnels at the edge of each sector. In the tunnel the display changes. 
What you see is laterally shifting planes representing the edges of the 
tunnels and a series of gates which you either go over or under. If you 
hit the sides of the tunnel or do not avoid the gates you will sustain 
damage. At the novice level these gates are not difficult — but at 
higher levels with increased speed | got frustrated at times. 

One of the squares on the grid map has an “F” on it. This represents 
where you need to go to automatically replenish your fuel supply and 
to repair all damages sustained in battle. 

If you succeed in destroying all of the saucers you will be given a 
rating and classification on a final screen (shades of STARRAIDERS). 

| succeeded once in reaching a class 1 status mostly by luck. The 
highest level, labeled “Expert”, is too fast for me to master as yet. 

This is a good game. It has had good staying power and variety. 
There are a lot of subtleties to DIMENSION X which are discovered on- 
ly by playing it. | do very well on the battle field but not so hot 
maneuvering in the tunnels. The graphics alone make this game a wor- 
thy addition to the Atari repertoire. 

— Graham Smith 


BASIC XL 


| don't impress easily. A product has to be quite good for me to give 
it the green light. In the case of BASIC XL ($99 OSS), | am impressed 
all over myself. | received my computer programming training on Main- 
frame computers. Most of these have extremely good editors and very 
powerful versions of BASIC. Needless to say, | was rather shook when 
| bought my ATARI and found many of the high level commands | was 
used to were missing. And, while the ATARI editor is the best of all 
home computers, it still lacks many features. 

The first thing the programmer will notice is the improved editor. 
Automatic line numbering, built-in renumber, and block line deleting 
make it much easier to modify programs. Another powerful aid to pro- 
gramming is the TRACE function. The trace function is not be par- 
ticularly useful in graphic programming, as it kills all graphic modes 
and functions only in GR.O. On the other hand, if you are going buggy 
trying to find just where the extra characters crept into that string, this 
is the ticket. 

There are other nice features to the editor, and some which are 
useable through the editor OR in deferred mode in programs. First, 
and probably the most desirable is the DIR(ectory) command. If you 
are like me you probably don't update your disk labels often enough. 
This makes it fun trying to find which disk has what. Also accessible 
are most of the standard DOS commands, which saves PLENTY of 
time if the program you are developing does any file manipulation, 
such as creating data files. All in all, the editor is among the nicer | 
have seen. The only more powerful editors are those on larger 
machines which COMPILE the basic programs prior to running them. 

One thing you will notice about BASIC XL right away is it runs 
FAST. Without any modifications to existing programs, any largeish 
program will run noticeably quicker. As an example, | booted MASTER- 
TYPE(tm) with BASIC XL in the computer. While the program was 
thinking it was running at 25 WPM, | counted 34 WPM. Again, this is 
with absolutely NO changes to the program. On top of this, there is a 
nifty command which comes in very handy. "FAST" tells the computer 
to do a basic pre-compile on the program. | won't take the time to ex- 
plain its operation here, but it can make a very significant differance in 
speed. 

One of the things that bothered me the most when | got my ATARI 
was the lack of string arrays. Once | got used to building my own str- 
ing arrays, | felt better and found that if | worked at it | could to 
anything other Basics could do. BUT, it took a lot of extra programm- 
ing. BASIC XL has all of the string handling features of the best micro- 
computer basics. Not just string arrays, but MID$, LEFT$, and RIGHTS. 
Also included is the FIND command, which makes string searching 
quite a bit easier. This does not force you to use these commands, as 
the normal ATARI string handling features are also available. 

Not being a mathematician, and avoiding number crunching as 
scrupulously as possible, | couldn't see any changes in the math func- 
tions. So | compared the command lists in the ATARI BASIC and 
BASIC XL manuals. Sure enough, no changes. (At least none | could 
find). 

For people like myself who just LOATHE mucking about with the 
details of setting up and manipulating PLAYER MISSILE graphics, 
there are a whole flock of commands to simplify the process of using 
PMG. This should open the use of PMG to many programmers who 
have avoided it in the past. 

Let's not forget the error codes. ATARI BASIC simply gives you a 
number when it encounters an error. BASIC XL not only gives you a 
number, but a short explanation of the type of error encountered. 
Those of you who don't goof up enough to have memorized all of the 
error codes (like | have) will appreciate this feature. It will save you 
from looking everything up in the manual. 

Those of you who intend to do any serious programming in BASIC 
should strongly consider picking up BASIC XL. Not only do the 
features make programming easier, but the increased speed in many 
cases is enough to make the difference between a clunky game and a 
fast, smooth one. Those of you writing application-type software will 
find it faster and easier. | have used all of the enhanced Basics that | 
have seen for the ATARI. Of them all, BASIC XL is the best. In my opi- 
nion, this is a MUST for BASIC programmers. 

Now, is anybody listening at ATARI. ! have talked with Bill Wilkin- 
son at OSS. He assures me BASIC XL could be implemented in the 
new 1450XLD (if there really is to be such a thing) without making any 
mods to the operating system OR the circuit boards. If you plan on 
putting out an advanced personal computer, you should use the most 
advanced implementation of BASIC available. | seriously believe the 
search for a better Basic ends here. 

— Kirt Stockwell 


The Computer Faire 


The 9th annual West Coast Computer Faire was quite a bit of fun, as 
well as highly informative. Everybody from hobbyists to educators, to 
programmers and equipment designers can find something of interest 
there. 

This year the Faire experienced possibly the most drastic change 
since its inception. Many people in the computer industry, as well as 
potential buyers of home computers were not expecting ATARI to live 
through the past year. | am happy to report that ATARI Home Com- 
puter Division seems to be healthy. 

The ATARI display at the Faire was first rate. The display cases 
were really nice looking, and the set-up was more tempting to in- 
vestigate. The new ATARISOFT group was in attendance, with 
about 35 percent of the total space ATARI had rented. They were 
displaying programs on ATARI and COMMODORE computers. The 
quality of the games was quite good, and the selection promises to 
grow rapidly. When | first heard about the ATARISOFT group last June 
at the CES in Chicago, | thought it was a good idea but wondered 
whether ATARI could pull it off. It seems the new management knows 
its stuff. 

It seems there has been a change in the marketing attitudes of the 
major computer and softwre vendors. Most of you have probably notic- 
ed that in the past year or two there have been far fewer computer 
Stores around, not to mention the dwindling numbers of those who 
specialize in any one home computer. The trend in marketing is “a 
computer can be sold the same way as a toaster or microwave oven". 
Personally | am not convinced this is an intelligent selling program, 
but it seems to have caught on quite well. With the major mass market 
retail chains selling computers, the manufacturers feel very little need 
to spend the bucks necessary to impress the little people at the Faire. 
| think this is a mistake. What the major companies are doing is trying 
to sell computers with absolutely no promise of meaningful customer 
support. 

The software companies are another Story. Any of you who spend 
any time looking at software in the stores will have noticed that very 
few new programs of any type have been released fo any of the home 
computers lately. Piracy has a lot to do with this. The companies lose 
SO much money on piracy they are afraid to release anything wor- 
thwhile. They are also spending inordinate amounts of money trying to 
protect their sotware from piracy. Personally, | don't think this is the 
answer. In some cases, the protection is costing the companies more 
than the author will receive in royalties. The authors also suffer from 
the delayed release dates, as they don't receive any meaningful com- 
pensation until the program is released and begins selling. 

! should mention that OSS was quite well represented. | had several 
opportunities to talk to Bill Wilkinson, who is a very knowledgeable 
and interesting person. Bill is expecting several developments in the 
next year. Among these are a parallel drive for the XL series and possi- 
ble a parallell HARD DRIVE (10 meg or so) for the XL computers. Bill 
also says BASIC XL is currently outselling ACTION! by almost 2 to 1. | 
expect to see this change this year. Action! is not only easy to learn, 
but is incredibly powerful. 

Publishers were in evidence all over the show. One area of the home 
computer field which seems not to have had a bloodbath this year is 
the magazines. Antic, Analog, Compute and a host of new magazines 
were all well represented, as well as magazines spcializing in the other 
home and personal computers. Time prevented me from talking at 
length with many of these people, but | did get to spend some time 
with Jim Caparrel of ANTIC. We discussed the attitudes of users and 
user groups, and the growing sophistication of computer owners in 
general. 

In past years there have been many small companies represented at 
the Faire producing specialty software or unusual peripherals. This 
year they all seemed to be missing. One of the reasons for this may be 
the cost of the facilities. Here in the Pacific Northwet (sic), housing 
can be built for a cost of about 6 to 9 dollars per square foot. When you 
pay that cost, you OWN the building. The cost of renting the floor- 
space at the computer faire has risen to $14.50/square foot. For this 
you get 5 days' worth of rental, electricity, and rudimentary security. 
Many small companies cannot foot a bill like that, especially when you 
consider the cost of staying in San Francisco for 5 days or a week. 
Many of these small companies also seem to not have lived through 
the past year. 

All in all, the Computer Faire was instructive and enjoyable for 
me, but then | wasn't looking for anything specific. Don Marr, 
owner of Royal Software based here in Eugene, was so disap- 
pointed he didn't stay through the whole Faire. Most dealers | 
talked to felt the same. They came looking for new software 
and/or hardware they could retail. For the most part they went 
away empty-handed. The few companies who were showing 
anything worth selling tended to pick up lots of new outlets, as 
the dealers found little new to pick up. 


The overall thrust of the Faire this year Seemed to be toward small 
business computers. There were more IBM PC clones than | ever im- 
agined existed (it's beyond me why anybody wants to copy that ob- 
solete turkey). The PERSONAL COMPUTERS (as opposed to home 
computers) were well represented, with software and hardware ven- 
dors all over the place. 

It is obvoius there is begining to be a very noticeable disparity bet- 
ween the Home computers and Personal computers. It is likely there 
will, witin the next few years,.be separate shows for Home and Per- 
Sonal computers. 

A big surprise at the Faire was running into Tom Mannus of 
Neanderthal Software. Tom visited Eugene last summer, and showed 
a prototype of “Turbo 810", a board to give the Atari 810 drives true 
double-density capacity. Tom insists the board is still under develop- 
ment and will be released by this summer. 

One nice thing about the Faire was the weather behaved beautifully. 
Coming from a L-O-N-G wet winter in Eugene, Oregon, | was happy as 
a clam to get a little sun. 

— Kirt Stockwell 


THE SHAPE OF THINGS 


by Ruth Ellsworth 

This month's article began with one idea in mind and ended with 
another. The promised article on more advanced string concepts in 
ATARI PILOT will appear next month illustrated by several routines 
which can be added to this program. 

PILOT is a very powerful language, more powerful than most realize, 
and can do most of the things it is possible to do in BASIC through 
peeking and poking. One of the things it can not do is an array. It also 
can use only twenty-six numeric variables. If this has been a problem, 
take heart. There are several ways around these problems, and this 
program demonstrates one. 

We have been delighted with the articles in ANTIC MAGAZINE by 
Phil and Kathy Bergh dealing with character sets and player missile 
graphics for PILOT. This program is a utility for creating new 
characters to be used in text or as "player-missiles" in graphics. In 
order to make the program assign one (and only one) value to each 
square of the grid | needed sixtyfour variables. Psuedo-arrays and ex- 
tra variables can be obtained in PILOT by poking values into unused 
memory locations. For this particulor program we decided it was 
easier and less typing to assign each square of our grid a memory ad- 
dress. Since the lower numbered end of page six in memory does not 
seem to be used in PILOT we chose those numbers to use as our 
Storage locations. One of the reasons we decided to solve our problem 
this way is that, although the memory locations can be added, sub- 
tracted, etc.; we could not get our computer to 
C(#X = number) + (#Y = number):store value at specified location. The 
equation should work, and we can only guess it did not because the 
values were joystick location points. 

The use of empty memory locations opens up a world of 
possibilities in PILOT. For beginners like we are, there are two options 
which can immediately be put to use. Those locations can be assign- 
ed variables, such as #A, to be used in numeric functions, or they can 
be used to store a boolean 0 or 1, and peeked for use in programs 
where a true or false value is needed. 

The other concept illustrated by this program is the writing of data 
to disk storage. This month we are demostrating numeric variables on- 
ly (next month will be string variables). Lines 2040 to 3040 demonstrate 
the technique used to store numeric variables to disk (cassette can be 
used if the D: is changed to C: when the program is typed). It is possi- 
ble to Read and Write to a device in PILOT by using the READ: and 
WRITE: commands. There are several rules, however. WRITE: and 
READ: must be separated by a CLOSE: command. The device must be 
specified followed by a :. The data must have a name. Numeric and str- 
ing variables cannot be mixed. Numeric variables can only be stored 
and retrieved separately. (String variables are easier to store, but ad- 
vanced string techniques which we will show next month are needed 
to separate them upon retrieval.) 

The retrieval routine listing is designed to be added at the beginning 
of the progam in which the new character is to used. The shortest and 
easiest demonstration program for character sets | am aware of is 
printed in the August 1983 ANTIC by Phil and Kathy Bergh. It should 
be loaded first and renumbered so the retrieval routine will appear the 
beginning. A line 105 J:* BEGIN and 1 *BEGIN must be added, and the 
numbers in lines which read C:@B#W = number must be changed to 
read C:@B#W = variables #A to #H (e.g. C:@B#W = #A). 

During the run of this program typing C will save the character, and 
typing E will erase a square on the grid. Additional characters can be 
Saved by renaming the filename in lines 2040 to 3040. The lines at the 
beginning of the program will initialize the location of the joystick, and 
the memory locations so typing run will allow the program to be reus- 
ed without any glitch. 

In the event someone is curious as to why the grid does not appear 
in the middle of the screen, next month we will use String techniques 
to place the numbers on the screen near the grid rather than at the bot- 
tom of the screen. Until then “get in shape” with the utility. Character 
sets are a lot of fun. 
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58 Pa: 168 

68 R: THIS PROGRAM MUST BE MODIFIED TO 
ALLOW THE USE OF CHARACTER UTILITY 

65 R:CHANGE ALL Hå BELOW TO HR OR ANY 
LETTER VARIABLE NOT BETWEEN ñ TO H INC 
LUSIUE. 

66 R:4DE LINES 65 EXPLAINED IN MAY ACE 
NEHSLETTER. 

78 C:Hz-8176/1824X1 

88 C:HZ-HZX1824 

38 Ci: HW-HZ 

188 C:HA-HZ 

118 CiHY-8B756X256 

128 C:8B756-14/256 

138 C:Hx-8 

148 XMOVEIT 

158 C:8BHZ-8BHY 

166 C:HY-RYt1 

178 C:HZ-HZ*1 

188 C:HM-HHNt1 

198 JüUfHCIBZ242 :XMOVEIT 

288 C:HH-HMt (4483) 

218 C:8BHW-7 

228 C;HH-HHTt1 

236 C:GBHHW-i5 

248 C:HM-HMWti1 

258 ¢: @BHN-124 

268 C;HH-HHti 

278 C:B8BHN-12 

288 C:HNW-HMWt1 

298 C:8BHM-GI 

i88 CIiHW-HMWti 

318 C:8BHH-183 

128 C:HW-HMWti 

ii8 Ci8BHW-57 

i48 C:HH-HHWti 

i58 C:8GBHNW-8 

i68 T: 

198 T:Lori Louise London Library 

488 E: 


Superload by Terry Barker 


Atari Computer Club OK City 

18 REM THESE ROUTINES WRITE à PROGRAM 
28 REM WHICH, WHEN ENTERED, WILL INSTA 
LL THE SUPERLOAD 

18 REM UTILITY aT THE ADDRESS POINTED 
TO BY LOCATIONS 

48 REM 132 AND 133 

58 CHKSUM=@ 

68 FOR I-8 TO 118:READ X:POKE 152364I,H 
: CHKSUM-CHKSUMER: NEXT I 

78 IF CHKSUMO 14988 THEN PRINT"SORRY, 
ONE OF YOUR DATA STATEMENTS IS INCORRE 
CT." :END 

88 OPEN #1,3,0,"D:5LDATA 


38 PRINTHI, “FOR I-8 TO 118:GETH7, Ki POK 
E i1536tI,X:NEKT I 

188 FOR I-8 TO 118;PHT Hl,PEEK(1536+41) 
NEXT I 

118 PRINTHi,"H-USR(1516t108,180) 

i28 PRINTHI1,"ADML-PEEK (132) t256XPEEK CI 
33) 

128 PRINTHi, "K-USR(i536,1576,aDMLti,18 
8,11 


148 PRINTHI, "CLOSER? END 


158 CLOSER 


168 END 
178 D.168,0,184,104,133,97,184,133,96, 


104,133,217,184,133,216,104,133,219,17 
@,184,133,218 

188 5.idd,184,2884,43,162,2,177,76,281, 
64,48,3,24.185,9,41,15,282,248,9,18,18 
,18,18,1:3:,228,200,144,2131 

138 D.5,228,178,152,72,74,168,138,145, 
215,184,168,208,196,218,288,214,96,224 
,8,288,4,136,218,248,247,177 

288 D.96,145,216,224,8,288,4,288,24.14 
4,216,288,288,231,282,2318,27,230,217,2 
4,144,225 

218 b.184,184,178,184,168,138,162,134, 
76,129,168 


5 REM YOU MUST ENTER "D:SLDATA" BEFORE 
RUNNING THIS PROGRAM! 

ië DIM 65M9(188) 

i2 REM -- CLEAR SCREEN -- 

15 PRINT CHRS (125) 

17 REM — GET ADDRESS OF SUPERLOAD -- 

28 ADML-PEEK (i32) t256XPEEK(i33)ti 

25 REM -- ADDRESS OF SCREEN -- 

i8 ADSCR-PEEK(88)*256XPEEK (82) 

i5 REM -- INPUT DATA (IM HEK) -- 

48 D.73757865726C6F6164 

45 REM ASKS 

47 REM -- PACK AND MOVE —- 

58 H-HSRUADHL , ADR CASMS) , ADSCR, LEN CASMS 

),81 

95 REM -- MOVE PACKED DATA -- 

56 REM —- DOWN SCREEN -- 

68 FOR I-1 TO 24:E-USRCADML . ADSCR, PSC 

RtIXA1,LEN CA5MS2/2,1) : NEXT I 

78 P05.2,15 

9393 END 


5 REM YOU MUST ENTER "D:SLDATA" BEFORE 
RUNNING THIS PROGRAM! 

18 DIM à5M$ C124) 

i2 REM -- CLEAR SCREEN -- 

i5 PRINT CHR$(1253 

17 REM -- GET ADDRESS OF SUPERLOGAD -- 
28 AàDML-PEEK(CII2)1256XPEEK(133)*1 

25 REM -- ADDRESS OF SCREEN -- 

ZA ADSCR-PEEK(88)t256XPEEK (83) 

35 REM -- INPUT DATA CIN HEH) -- 

48 Aà5M$-'A988850885D368686885D66868036 
8188481869480260380218E396842018026D3CAF 
6831898F785D8465D31865D685D34887B1 

45 ASMSCLENCASMS) +1} Z"D8235531D888F 883 
i8538F468 

47 REM -- PACK AMD MOVE —- 

58 HZUSRLADML, ADR CASMS) , ABRCASHS) , LENT 
45H$),83 


55 REM -- MOVE PACKED DATA -- 
56 REM -- DOWN SCREEN -- 
V-PEEK(CÍ8G62:Y-Y-4:POKE 186,Y-1 


GR. G 
HIUSRCADML , 224#256 , ¥Y#256,128¥#8, 13 


75 HIUSR CADR AR 5C (4 7238X8,1) 
76 POKE 756,Y 
39 END 
Dale Lutz 
8 REM PEREIS for Dale Lutz Tidbits. 


1 REM SEE ACE NEWSLETTER APRIL ISSUE 
PAGE 4 

5 REM O5/At 2.18 COMMAND CHANGER 

18 DIM OSC) 

28 BASE-5988 

i8 FOR A=BASE TO BASEt4i 

35 B-B*i 

de ? CHRSCPEEK CAI}; 

45 IF B}2 THEN B-8:6G05lB 188 

58 NEKT ñ 

58 ? “THAT'S IT, NOM WRITE OUT A bas F 
ILE TO KEEP YOUR CHANGES “GEND 

188 7 "--}ENTER YOUR ALTERNATE CHOICE" 
; INPUT å$ 

185 IF LENAS) C3 THEN RETURN 

ii8 FOR C-1 TO 3:POKE &-CG-C) , ASC ASCE 
Ul) 

115 WEHT € 

128 RETURN 


8 G-8:H-1:0-2:SE-HU:GOSUB i2888:605HB 9 
888:DIM CP(8),€T(5) , CRIB? , b C83 


1 REM JGHUOUODUOOOHOOOGGOHOCOOOGOUGCOOOEN 
z REM xx ACE NEWSLETTER ea 
i REM Ke 3662 VINE MAPLE DR Ht 
d REM xx EUGENE, OR 97485 SR 
5 REM xx MAY 1984 512 YEAR SR 
b REM IHOBUOHODHOOBUOOHOHOOOOGCOGOUOOOGEN 
? REM Ke TOMB 3x 
8 REM Ke by xx 
3 REM ** Sydney Brown ** 


18 REM VERNEDEREN e 


i198 POKE 708,135:POKE 703,222:PüKEF 718 
,6:POKE 711,24:6051B 2888:LEU-1 

135 GOSUB 88088:2 "Re: cosuB 2086 :M-SCR* 
42:POKE M,186:POKE M*ti,187:CY-G:N-H:Hll 
-b:KPCLEUX212:G605IIB 518:1-18:MàD-—1i 

135 MN-1:FO0R H=Z8 TO 48-KP STEP -i:Pü5 
ITION W,8:? " "i:F0R HW-15 70 G STEP - 
98.5:50UND G,7,18,HM:NEMT HW:NEXT H 

288 ST-STICK(G):DI-G:PE-G:IF ST-15 THE 
M 2268 

201 IF 3T-i4 THEN PE-PEEK CM- 131 :DI--48 
:IF SCROLL THEN 284 

282 IF ST-13 THEN PE-PEEK(Mt41) :DI-48: 
IF SCRIUL THEM 284 

2031 GOTO 286 

264 IF PE=G THEN SCR-SCRtDI:POKE bi, IN 
TUCR/2561 :POKE Di, SCR-256XPEEK CD22 
286 IF ST=ii THEN PE-PEEK(M-1):DI--2 
£88 IF 51-7 THEN PEZPEEK CM+U+Q} :bI-0 
218 IF PE-G OR PEŽ198 THEN POKE M.G:PO 
KE MtU,G:POKE Mtil,G:M-MtDI:POKE H,L:PO 
KE Mtl, Lu 

212 IF PE=i91 THEN GOSUB 768 

214 IF K(LL AND M-LL*196 THEM GOSUB 75 
8 

216 IF PEŽ191 THEN 778 

228 IF KP}18 THEN 778 

238 If SIRIG(G)I-G THEN GOSUB 888 

258 N-N*U:IF N25 THEN H-H:POKE 77,6 
255 MAD-MAáDti:IF MAàD?288 THEN N-HN:IF 
MAb?>242 THEN MAD=U 

281 IF D.H) OG THEN GOSHB 450 

285 IF CY=G AND NHX5 THEN GOSUB 588 
238 IF C¥?G THEN CY=CY+tU: SOUND 6,14-CY 
.8,18:605BB i88 

231 IF MAD-208 THEN GOSUB 338 

234 IF PEEK(764)1-I3 THEN ON 5E GOSUB 5 
58,578 

295 IF PEEK(K)O191 THEN GOSHB 788 

236 IF PEEK(512731-5 THEN GOSUB 858 
237 IF PEEK(53279)-6 THEN 798 

238 IF L-186 THEN L-184:60T0 288 

299 L-186:60T0 288 

588 IF CY/OQ-INT(CY/QU) THEN POKE D. CHA 
J SPOKE Pi, CRIQEQI+H:GOTO 385 


Sydney Brown: Pharoah’s Tomb 


i81 POKE P,CRES}:POKE PHi,CR C5) tii 

385 IF CY(12 THEN RETURN 

358 N-NH:CPUDC-P:CY-G 

Š55 R-INTCIXRND CG} Hi: SOUND 6,14,18.15 
CT OD -CR CR) 

359 POKE P,CT(N):POKE P+U,CT CNJ +: SGHN 
D 6,6,G,G6:G0T0 488 

198 MN-INT(USKRND (GIU: RETURN 

488 R-INT(QXQXRND (6) HUD : QN. R GOTO 485, 
406, 487,408 

485 PE=PEEK(CP(N)-H):IF PE-G OR PED 183 
THEN D(N)--Q:SOTO 418 

486 PE BEER (CP (NI HQ) :IF PE-G OR PE?1 
83 THEN D(NI-0:GOTO 418 

487 PE-PEEK(CPCH) £48) : IF PE-G OR PEŽ18 
3 THEN DUNI-48:GO0TO 418 

488 PE-PEEK(CP(N)-40):IF PE-G OR PE)18 
i THEN D(N)--48:G0TO 418 

485 GOTO 485 

418 IF PE?183 AND PEX188 THEN 778 

458 PE-PEEK(CPCH) DENI) : TF. PE>18Z AND 
PE(188 THEN 778 

451 IF PEŽG AND PEC27Z THEN 488 

452 SOUND 0,255-7XN, 18,1 

455 CPUDCZCP CN) *D CN) : POKE CP GOD ,CTCIO : 
POKE CP(N1*U,CT CN) tH: POKE CP {N} -DOD ,6G 
:POKE (CP iN} HD D (N), G 

453 SOUND Q,6,G,G:RETHRN 

588 CY-H: NUNUH: RSINT COS-LEU)KRND GI) 
tU:ON R GOTO 581,582,582,584 

581 P-LL*228:RETURN 

582 P-LLt874: RETURN 

583 P-LL*268:RETIRN 

384 P-LLt*682:RETURN 

518 K-INT(44GXRND CG)) K24LL HI: IF PEEK EK 

)?6 THEN 518 

515 POKE K,191:FüR H-15 TO G STEP -8.2 
:301ND 6,9,6,MW:NEMT H:PÜKE 764,255:RET 

URN 

3598 POKE M,6:POKE M*U,G:POKE 712,14:F0 

R M-U TO 7:50UND 6,7,18,18:50UND 6,6,6 
:5:NEHT M:POKE 712,6 

968 M-INT(448XBND (G2) K24LL : IF PEEK (ti 

326 THEN 568 

565 POKE M,L:POKE Mtl, L4U:FOR H-12Z TO 
7 STEP -0:S0HND G,H,8,18:NEXT H:50UND 
6,14,18,15:Fü0R H-G TO LA NERT H 

956 SOUND G,G,G, G: KPCKPH:POKE LL-KP,6 

i 

568 IF KLL THEN POKE K,G 

563 GOTO 518 

378 POKE 712,14:FOR Vu TO NH:POKE CPC 

W2,G:POKE CPC) HI, G:FÜR WH-15 TO 7 STE 

P -H:SOHND 6,14,8,MH:NEXT WH:D (H) =6 

375 NEKT M:POKE 712.G:HI-G:CY-G: SOUND 

6,6,6,6:KPSKPtIJ: POKE iL-KP,6Z:IF KLL 

THEN POKE K,& 


6 


599 GOTO 518 

886 FOR M-255 TO ü STEP -@:50UND G,H,1 
8,18:50UND U,W-U,18,18:POKE 711,H:FOR 
WHI TO 7:NEXT WHINEXT H 

685 SOUND 6,6,6,6:500ND U,6,6,6:POKE 7 


. 41,24 


6i8 FOR WOU TO NH:POKE CPCHD,G:POKE CP 
Ci) HI,G:FOR HH-15 TO G STEP -8.5:S0UND 
6,41-HH, 8. HH: NEXT HH 

628 NEXT M:SOUND 6,288,12,15:FO0R koro 
Tü à STEP -H:POSITION 35,M:? « 

IF WIHA THEN POSITION 36,W:7 min: 

638 FOR WH TO 123: NEXT WH:NEXT W:FOR 
W-i15 TO 6 STEP -@.2:50UND 6,288,12,H: 

NEXT H:FOR HZH TO S:DCHIZG:NEKT H 

638 RESTORE 3988:FO0R YY-H TO 12:READ F 
,D,T:50UND G,F,18,15:50UND vru. 10,15 
:FOR W-U TO D/Q:NEHT H 

891 SOUND H,6,6,6:50UND 6,6,6,6:FOR k 

H TO INTCT/OJ:NEKT M:NEXT YY:LEU-LEU+H 
‚NUE 

692 FOR MH TO 123:NEHT H:? "BE'":IF LEU 
PAEA THEN LEU-Q*Q:M-1 

633 IF LEV} THEN POKE 718,182:POKE 78 

8,136:IF LEUXQ THEN POKE 718,134:POKE 
788,184:IF LEUPU*Q THEN POKE 718,54:P0 

KE 788,184 

633 GOTO 799 

788 FOR H=? TÜ 77 STEP @:50UND G,H,18, 
18:NEXT Mr: SOUND 6,6,6,6:KPZKPtli:POKE L 
i-KP,63 

789 GOTO 518 

758 SCR-LL:POKE D1,184:POKE D2,INT(USCR 
42563 

752 FOR W-14 TO 8 STEP -@:FOR HH=15 TO 
6 STEP -H:50UND G,H,18,MM:NENT HH:NEH 
T H:POKE LL-KP,G:KP-KP-H 

754 IF KPC2 THEN 688 

755 GOTO 518 

768 FOR H-15 TO 6 STEP -8.25:50HND 6,7 
,18,H:NENT H:K-LL-40: RETURN 

778 FOR WU TO 21:RR-INT(254XRND CG21 :5 
GUND G,RR/0,8.15:POKE 712,RR:FOR MH 
TO i14:NEHT WAINEXT W:FOR H-15 TO G STE 
P -a.ž 

772 SOUND G,RR/0,8,hH:NEXT M:POKE 712,8 
773 RESTORE 3I88:FOR YY-U TO 11:READ F 
20,7: 50UND G,F/Z,18,15:FOR Mil TO D:NE 
HT M 

774 SOUND 6,6,6,6:FOR KH TO T/Q:NEKT 
H: NEKT YY:REñD D:SOUND G,D/2,18,15:FOR 
H-1 TO 123:NEKT H 

775 FOR H-15 TO G STEP -@.2:50ND G,D/ 
2,18,W:NEXT H:H=H 

788 W-HtU:IF Wo7@ THEN POSITION I,8:7 
" EIE "; 

781 IF W-148 THEN POSITION 3,8:7 "EI 


figs 
Pc 


ER E " 

782 IF W-218 THEN POSITION 1,8:? "PHAR 
DAHS TOMB"; 

733 IF W-288 OR H-388 OR W-326 OR H=š4 
B OR W-36B THEN POSITION 3,8:? "C O M 
P C O ";iIF H=š68 THEN Mil 
784 IF H-298 OR W318 OR H-3i8 OR W-35 
8 THEN POSITION i,8:? rn K 


785 
786 
738 
u 
733 
OKE 
ar 195 

888 IF STICK(G)-13 AND SCHOUL THEN DIZ 
48:GO0TO 8:8 

818 IF STICK(G)-14 AND SCROLL THEN DIZ 
-48:60T0 838 

828 IF STRIGCG)-H THEN GOTO 849 

823 GOTO S888 

838 SCR-SCRtDI:GO0SUB &49:FOR Wi TO 21 
;NEHT M:IGOTO 888 

849 POKE DZ,INT(SCR/2563 :POKE D1,.,5CR-2 
56XPEEK CD2) : RETURN 

858 IF SEU THEN SE-0:POSITION 19,8:7 
"in: GOTO 868 

855 SE=U:POSITION 19,8:72 gtt: 

868 FOR HH-15 TO 6 STEP -8.5:50HUND 6,2 
55,18,WMH:NEXT HH: RETURN 

2888 POSITION 8,1:7 "UHUHUHUHUHUNUMUMHU 
BEU MEU WEU BEU BEU BEU DU HEU HEU EU HU HEU IN UH v 
M UH Aa TI UW 


2081 7" UM UN UN UW UREEEWUM UH 
UHUWUNUMUH UH UM UH UH UERHUH 
UW HN HN UH UN UW; 
2882 7 "UN UH UH UHUHUM UH 
UH UHUN  UHUM | UNUMUNUMUM UN UH 
UHUNUMUHUHUHUNH UH ob 
2883 ? "UM UNUMUHUHUN UH 
UN UH UMHUMNUHUM UHUN UHWUH 
UN UH UH UM UHUM O; 
2884 ? "UHUHUHUM  UHUMHUMUHUMUMN UHUH 
UHUH UH UH UH 
UNUM  UMUM UM UN UN UN UHUHUHUH''; 
2885 7 " UM UHUH Ui UH Un 
UHUHUH UN UHUHUMUM UH 
UHUWUMWUH UH VRUM UN w; 
2886 ? "UWHUWUM UHUNHUHUHUM UIEN 
UHUH UH UN UHUHUHUNH UH 
UH UHUMUM UH UH UM UHUH 
n": 
2887 ? "UNUM UH UH UM UH UH 
UHUH UH UM Ui 
UHUHUHUM UHUH UM UN UM UW UM 


IF PEEK(53279)-5 THEN GOSUB 858 
IF PEEK(353279) O6 THEN 788 
7? "R';POKE 718,6:POKE 788,136:LEU- 


SOUND G,6,6,6:5CR=LL:POKE D1,184:P 
BZ, INT C5CR/2563 :? "K"; GOSUB 8888:6 


2808 ? "UM UH UHUH UH 


UH UH UN | UNUHUHUMHUHUNUHUM 
UHUHUMNUMU RU RU HURRY KRI UHURU ; 
2889 POSITION @,@:7 "B PHARGAHS TOMB 
ff: IF SE-2 THEN POSITION 19,8:? "ës 
2828 RETURN 


3868 ? "RK": POSITION 7,8:? "ace eugene" 


"ees FOR H-DL+7 TO DL*18:POKE H 
,UXQ:NERT H 
i881 POSITION 3,2:7 "UMU UU M Owi U 


HU H UU U UN V U U U uH U U 
Hu UHU UU U UW UNU U U U 


WU ats 
$882 7 “Y U V V UHU UHY u d 
U UMU UW U U UNY U U U y 


UUUUUUUNULU Yue YW"; 
i884 POSITION 7,9:? "VWUNU  UHUMU U 


U UWUH H U v V 
H HU V H g young 
3886 7 "Dj UUU UHWJNU 

u M ouo HM OW wv V 


y UHUMU U U UNUHU": 
3818 FOR HKU TO Q:RESTORE 3989:FOR YY 
-H TO 12:READ F,D,T:SOUND G,F,18.18:50 
UND U,F+U,18,7:FOR WU TO D/Z:NEXT H 
1828 SOUND 6,6,6,6:50UND U,G,G,G:FOR H 
zij TO T/Z:MEHT HW:NEMT YY:NEHT HH 
18939 FOR Mil TO 2@8:NEXT Wi? "KU:FOR H 
-DL*7 TO DL+18:POKE W,5:NEXT M:RETURN 
1388 DATA 86,49,21,75,49,21,72,148.1,7 
2,148,1,86,148,14,86,49,21,75,42,21,72 
,49,21,72,d9,21,64,43,21 
1381 DATA 64,49,21,86,148,21 
1983 DATA 86,49,21,75,49,21,72,148,1,7 
5,140,1,86,148,14,86,49,21,75,49,21,72 
,49,21,64,49,21,75,49,21 
3918 DATA 72,49,21,86,148,21 
3911 DATA 243,245,247.111,113,198, 288, 
281 
8888 RESTORE Z311:FOR WOU TO 7:READ D: 
CRW) —D:D CHI ZE: CPODZ-G:NERT H 
8818 RETURN 
9088 DL-PEEK (566) +256%PEEK (5612 :FOR We 
U TO Q:POKE DLtW, PEEK CDL €HEQEID "NENT H 
:POKE DL,71:POKE DLt(tU,6:5C-184 
9885 SCS-PEEK(DL*5) :POKE DLtQ#Q,69:POK 
E DLt6,5C5:POKE DLt5,SC:DI-DL t5:D2-DL 
6:FOR M-19 TO 24 
3818 POKE DLtH,PEEK (DL *Ht18) "NERT W:FO 
R H-7 TO 18:POKE HtDL,S:NEHT MW:5CR-SC* 
256*5CS :LLZSCR: iL -SCREA488 : RETURN 
32888 DIM PR$(58):CB-PEEK (186) -4: PGKE 
186,CB:PR$ čil, 41) KIRICH 
HITE Taide e : GRAPHICS 6 
32085 POKE 82,G:POKE 752,1:7 :? "SEU 
BESTAAN BROWN 4983 Z — ao) 
ESTORE 32768 
12818 Z=CB¥Z56:A-=U5R (ADR PR), Z, 4) : FOR 

W=Z+432 TO Z+5ii:READ D:POKE M,D:NEXT 
W:FOR H=888 TO 967:READ D 


7 


32828 POKE WtZ,D:NEET M:POKE 756,CB:RE 
TURN 

32758 DATA 242,242,243,0,171,255,255,8 
,171,255,255,8,242,242,2431,0,18,1,85,6 
3,653,15,12,68,128,8,84,1:2.68,248.68,8 
$2761 DATA 2.8,21,17,17.15,68,8,168,64 
,95.37,81,248.48,68,8,8,8,168,42,178.17 
8,42,128.168,168,178,168,168,168,168 
32762 DATA 63,62,63,63,51,63,63,62,252 
‚264,252,45,68,48,68,8 

32764 DATA 8,3,12,63,255,243,63.15,46, 
252,255,255, 2784,248,252,192,66,255,62, 
94,15,15,3,0,246, 204,252,252, 248, 252 
32765 DATA 287.252,68.11.175,631,15,1,8 
,1,8,8,192,248,255,252,64,16,51,221.63 
799,63,63,63,15,0,192,3,15,63,255, 252 
32766 DATA 248,3,14,3,15,59,235,239,51 
192,176,152, 248,236,235,251,204 
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The string in Line 32000 
of Pharoah’s Tomb by Sidney 
Erown contains the following 
characters (1 use ths 
convention of "C" for Contro} 
Key, "I" for inverse): 


bra 


a 
"1, Ie i I- ih 1-4 
DIST, BP T- 


cb, 


zelje 


JOHNNY'S PAINTBOX 
Stan Ockers 3-84 
Written in Action! (c) 1983 ACS 


ACE NEWSLETTER, 3662 VINE MAPLE DR 
EUGENE. OR 97485 MAY 1984 $12 YEAR 


= we we A. 5 — vea en wa 


ODULE 


BYTE j,k,m,paint,consol=53279,key=764, 


under,stk,v,w,byt,sel,x y xl, yl, 
X2, y2,r, spd 

BYTE ARRAY huez[8 2 3 9 18 11 81, 
signz[18 9 45 8 79 63) 

INT delx,dely 


PROC Prtchar (BYTE byt) 
CARD st, pos 
IF byt(32 THEN st=(byt+64) #8+57344 
ELSEIF byt(95 THEN 
st=(byt-32) #8+57344 
ELSE st=byt#8+57344 Fl 
FOR kz8 TO 7 
DO 
byt=Peek(sttk) j=7 pos=! 
WHILE pos<256 
DO 
IF byt&pos THEN color=hue(paint) 
ELSE colorz$ FI 
Plot (vej,wtk) 
j*z-1 posszt2 
0D 
0D 
RETURN 


PROC Ding(BYTE pitch, CARD dly) 
BYTE loud 
CARD wait 
FOR loud=@ TO 13 
00 Sound (8, pitch, 18, 15-10ud) 

FOR wait=1 to diy DO OD OD 

Sndrst() 

RETURN 


PROC Model) ; Print mode syabol 
v278 w=89 byt=sign(sel) Prtchar (byt) 
Ding (se]#19+38,688) key=255 

RETURN 


PROC Init) 


Graphics(23) Poke(752,1) Poke(423, 128) 


Poke (87,18) Poke(784,12) Poke(785, 79) 
Poke(705,56) Poke(788,46) 
Poke(789,214) Poke(718, 134) 
Poke(712,182) x=40 y=48 delx=8 del y=9 
color=2 Plotí8,98) DrauTo(79,4) 
DrawTo(79,88) DrawTo(8,88) 
DrawTo(9,8) 


Stan Ockers: Johnny's Paintbox 


FOR asi TO 6 DO 

vzBtat8 w=89 

paintza Prtchar (48+a) OD 

sel=ñ Mode() x=48 y=48 under=8 spd=5 
RETURN | 


PROC Hues() ; Change color usinq keys 
IF key=31 THEN paint=1 Mode() 
ELSEIF keyz36 THEN paint=2 Mode() 
ELSEIF key=26 THEN paint=3 Mode() 
ELSEIF key=24 THEN paint=4 Model) 
ELSEIF key=29 THEN paint=5 Mode() 
ELSEIF key=27 THEN paint=6 Model) 
ELSEIF key258 THEN paint=@ Mode() FI 

RETURN 


INT FUNC Abs(INT n) 
IF n<8 THEN RETURN( -n ) FI 
RETURN( n | 

; From Action! Prograamers Disk 


PROC CircletINT r) 
INT Phi,Phiy,Phixy 
Phiz8 xizr yl=8 
DO Phiy = Phi + yityi + | 
Phixy = Phiy - x1-x1 + 1 
Plot(xtxi,ytyl) Plot(x-xi,ytyl) 
Plotixtxi,y-yl) Plotix-xi,y-yi) 
Plotixtyl,ytxd) Plotix-yi,ytxi) 
Plot(x*yl,y-x1) Plot(x-yl,y-x1) 
Phi = Phiy yl = yl tl 
IF AbsiPhixy)*&KAbs(Phiy) THEN 
PhizPhixy xl z xi - 1 FI 
UNTIL yt > x1 OD 
RETURN 


PROC Brush() ; Fill in area with color 
jsx WHILE Locatetj-1,y) 26 
DO j==-1 OD color=@ Plot(x,y) 
color=hue (paint) 
WHILE Locate(j,y)=8 DO 
kzy WHILE Locate(j,k)=8 
DO Plot(j,k) k==+1 OD ksy-i 
WHILE Locate(j,k)=8 
DO Plotij,k) k==-1 OD 
Plot(j,y) est) 
OD under=color 

RETURN 


PROC DIy(CARD wait) 
DO wait==-1 UNTIL wait=@ OD 
RETURN 


PROC Draw() 


stk=Stick(@) stkzz!15 delx=@ delysg 
IF stk&i THEN dely=-1 FI 
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IF stk&2 THEN delyzi FI 
IF stk&4 THEN delxs-1 FI 
IF stk&8 THEN delx=1 FI 
ysztdelx ysstdely 
IF x>78 THEN x=1 FI 
IF y?87 THEN yzl FI 
IF x41 THEN 1278 FI 
IF vi THEN y=87 FI 
IF Delx O8 OR Dely(?8 THEN 
underzLocate(x,y) FI 
color=9 IF under=9 THEN 
color=2 FI Plotix,y) Dly(560#spd) 
IF Strig(8)-8 THEN colorzhue(paint) 
ELSE colorzunder FI 
Plot(x,y) Dly(S@é#spd) 
RETURN 


PROC Rectangle() 
xl=x yl=y DO 
color=@ Plotix,y) DrauTo(x1,y) 
DrawTo(xi,y1) DrawTo(x,y1) DrawTolx, y) 
stkzStick(8) Hues{) 
IF(stkki)<g AND y1?1 THEN yl==-1 FI 
JF(stk&2)28 AND yi¢y THEN yl==+1 FI 
IF(stk&8)28 AND x1478 THEN x1==+1 FI 
IF(stk&4)20 AND vin THEN x1==-1 FI 
color=hue(paint) Plot(x,y) DrawTo(x1,y) 
DrawTo(x1,y1) DrawTo(x,y1) DranTo(x,y) 
IF key=33 THEN 
IF xidx OR yi¢y THEN under=color FI 
EXIT FI OD 
RETURN 


PROC Letters () 
key=255 
DO IF key<255 THEN 
xay yew Hues() van way 
IF keyz12 THEN EXIT FI 
IF key=52 AND v>8 THEN vsv-8 FI 
bytzPeek(55342*key) key=255 
IF byt<i28 AND v<78 AND w(88 
AND (byt?38 OR byt=32) 
THEN Prtchar (byt) 
IF v+8<76 THEN vzv*8 FI FI 
FI 
underzLocate(v,w) color=hue(2) 
IF paint=2 THEN color=hue(3) FI 
Plot(v,w) Dly (1988) colorsunder 
Plotiv,w) D1y(1889) OD 
RETURN 


PROC Triangle) 

uizx x2=x yl=y y2=y 

DO color=8 Plot(x,y) DrawTo(x!,yl) 
DrawTo(x2,y2) DrawTo(x, y!) 

stk= Stick(8) Hues() Dly (1688) 

IF (stk&l)=9 AND vii) THEN yl==-1 FI 





IF (stkk&2)=ó AND y1<87 THEN yl==41 FI 
IF (stk&8)z6 AND x2¢78 AND Strig(#)=! 
THEN x2==41 FI 
IF (stk&4)=6 AND x2>1 AND Stríg(8) -1 
THEN x2==-1 FI 
IF Strig(@)=@ AND (stk&8)=@ AND x1<78 
THEN x1==+1 FI 
IF Strigi8)z8 AND (stk&4)=@ AND x1)! 
THEN xi==-{ FI 
color=hue(paint) Plot(x,y) 
DrawTo(x1,y1) DrawTo(x2, y2) 
DrawTo(x,y) 
IF key=33 THEN 
IF 31x OR x20» OR y1Oy OR y20y 
THEN under=color FI EXIT FI OD 
RETURN 


PROC Round() 

r= 

DO color=@ Circle(r) Hues() 

stk=Stick (6) 

IF (stkt1)=8 AND rtx<78 AND ver >1 
AND r+y<87 AND y-r>1 THEN 
rest) FI 

IF (stk&2)z8 AND rg THEN 
rzz-| FI 

color=hue(paint) Circle(r) 

IF key=33 THEN EXIT FI 

OD 


RETURN 


PROC CIO<$E456(BYTE areg,xreg) 
j See page 137 of Action! manual 


PROC Loadfile() 
BYTE ARRAY filename 
BYTE iocb2cad-$362 
CARD sern, iocb2buf=$364, iocb2] en=$368 
filenamez"D:JOHNX, PIC" 
key=255 bytzé 
DO IF key<255 THEN bytzPeek (65278+key) 
key=255 IF byt>47 AND byt(58 THEN 
filename(7)=byt FI 
EXIT FI 0D 
IF byt<48 OR byt?57 THEN RETURN FI 
ÜPEN(2, filename, 4,0) iocb2cad=7 
scrn=Peek(89)#256 scrn==tpeek (88) 
iocb2bufzscrn 
iocb21enz3528 CIO(8,$28) Close(2) 
under zLocate (x, y) 
RETURN 


PROC Savefile() 

BYTE ARRAY filename 

BYTE iocb2cadz$382 

CARD scrn,iocb2bufz$354,iocb21enz$348 
filenamez'D; JOHNY. PIC" 

keyz289 bytzg 
DO IF keyé255 THEN byt=Peek (55278*key) 

key=255 IF byt>47 AND byt<58 THEN 


filename(7)=byt FI 
EXIT FI OD 

IF byt(48 OR byt>57 THEN RETURN FI 
QPEN(2,filename,8,9) iocb2cad-$6B 
scrnzPeek(89)4255 scrn==tpeek (88) 
iocb2buf=scrn 
iocb2len=3528 CIO(8,$20) Close(2) 
RETURN 


PROC Speed4) 
Ding(38,588) key=255 byt=spd+48 
vz78 w=89 Prtchar (byt) 
DO UNTIL key<255 OD 
byt=Peek (55278*key) 
IF byt<49 OR byt>57 THEN Mode() 
RETURN F1 
spd=byt-48 Mode() RETURN 


PROC Maint) 
Init selzá DO 
IF sel<>@ THEN sel:g Model) FI 
IF keyz33 THEN Brush) 
ELSEIF key=63 THEN sel=2 Mode() 
vex wey Letters() 
ELSEIF keyz18 THEN sel=4 Mode() 


Round () 

ELSEIF keyz48 THEN sel=1 Node() 
Rectangle() 

ELSEIF key=45 THEN sel=3 Mode() 
Triangle() 

ELSEIF key=@ THEN sel=5 Mode() 
Loadfile() 

ELSEIF keyz62 THEN sel=5 Mode() 
Savefile() 

ELSEIF key=39 THEN Speed () 

FI Key=255 


IF consol=3 THEN Init() FI 
Draw() Huesí) 
0D 

RETURN 


Fun with Art Picture Loader 
by Harry Perkins, F.A.C.S. 
Fresno, CA 


SCU:NEXT I 

23828 D.184,1593,16,178,76.86.228 

23822 MK-15:DIM PICS (HH) 

29825 DIM DLIONS (MN) 

23818 FOR Izi TO MM:READ J:DLIONS(CII-C 
HRS CJ) NEXT I 

29835 D.184,169,1232,141,212,6,1652,6,16 
8,221 

23848 D.153,6,76,92,228 

29845 MM-18:DIM DLIOFFS CMK) 

23858 FOR Izi TO MH:READ J:DLIOFFSCIj= 
CHRS (JI : NEXT I 

23855 D.184,169,64,141,212,6,141.14,71 
2,162 

29868 D.278,168,95,162,6,76,232,228 
29878 REM INIT. VARIABLES AND STEAL 50 
HE MEMORY FROM BASIC 

29875 REM 

23888 IOCB-848:0LDSCL-PEEK (568) : OLDSCH 
=PEEK (5613 

23885 PICBAS= CINT (PEEK (742) /16) -2) X16 
29898 DLIRAS-PICBA5-93;POKE 741,8:POKE 
742,DLIBAS 

23895 RET. 

29188 REM -- LOAD AND SHOW A FUN WITH 
ART PICTURE-- 

29185 REM ROUTINE RETURNS A--1 IF SOME 
THING IS WRONG WITH FILE 


RUTH’ 3 *PILOT tecont 


2838 LB .BYTE "SECTOR LINKS MáNGLED',G 
2848 DSKFULL .BYIE "DISK IS Filil",8 
2858 CR .BYTE "CANT READ/WRITE SECTOR" 
,8 

2866 EOF .BYTE "END OF FILE ERROR ",8 
2078 WUMERR .BYit “BAD DRIVE H'",8 

2886 TG .BYTE "DISK TIMEOUT ERRORU,8 
2898 END = #t5 


i8 REM ###FUN WITH ART PICTURE LOADERX 


HE 


15 REM 93€XREU.12/83 FOR F.A.C.S, NEWSL 


ETTERX* 
28 REM XXXBY HARRY PERKINSIOGOE 
25 5bE.2,0,8:PRINT"5':605.29888 


i8 PRINT CENTER PICTURE FILE TO LOAD"':T 


NPUT PICS 

35 605.29188 

48 IF PEEK(764) (228 THEN 6.48 
28 &05.29488 

68 SE.2,8,8 

78 6.28 


29888 REM --INT FOR ñ FUN WITH ART-- 


29818 MH-7:DIM CIOS CMK) 


23815 FOR Izi TO MKIREAD J: CIOS CI} =CHR 
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** * LISTINGS FROM LAST MONTH 
Greg Menke: Memory Drive 


i8 ;átari Memory Drive by Greg Menke 844B ` 
i REM HIN ENEN eee 28 : 8458 VECTOR .BYTE 6,8 H 
Z REM XX ACE NEWSLETTER HH 20 12/22/84 U1.8 . 8468 LEN .BYTE 6,8 SCHE variabl 
3 REM xx S662 VINE MAPLE BR SS Aë: es 
4 REM KK EUGENE, OR 37485 xk Sg: 8478 LENSHADOW .BYTE 8,8 : 
5 REM xx MAY 1984 $12 YEAR ** — 68 ;lises Atari üssembler/Editor 8488 FLAG .BYTE 8 ; 
6 REM WREDE 78 : format. 8438 ; 
7 REM X* BASIC LOADER PROGRAM — XK jg; 8588 NOERR LDY Hi iClear potenti 
8 REM Xx FOR MEMORY DRIVE SR — 398 ; al error 
3 REM ** BY GREG MENKE-see text xx 8188 ;.WORD assembles label lo byte fi 8518 RTS ;return 

HE April ACE for details KE — pst into memory, then hi byte 8528 NOFUNC LOY #146 ¿function not 
JOGGOOOOHOOOOOHEHOBORHHOOGHOOOE ` erig ; BYTE assembles numbers followin allowed error 

18 GRAPHICS B:SETCOLOR 2,12,4:? :7 “Wr q into Memory 8538 RTS return 
iting D:MEMORY.LOD'U:? :7 :? | 8128 ;TABLE/256 gives hi byte of TABLE 8548 DONE LOY i136 send of file 
28 OPEN H1,.8,8,"D:MEMORY.LOD' 8138 ;TABLE&255 gives lo byte of TABLE 8558 RTS return 
$8 READ A:IF àO-1 THEN PHT H1.0:60T0 gida ; 8558 ADBONE CLC ; 
38 8158 x-5688 8578 LDA $CB ; 
48 CLOSE Hi:? "Complete,,.":? = END 8168 PLA 8588 ADC Hi ; 
393 ERD 8178 START LDH HB 8598 STA SCH jadd one to 
1888 DATA 255,255,9,6.215,6,184,162,8, 8188 FIND (Da $831a,K aert i byte fro 8688 LDA SCC ¿Current file poi 
189,276,3,2761,8,248 m HANDLER table nter 
1818 DATA 12,281,77,248,8,232,232,212, 8190 CHP ite sis it free? 8618 abc Hü : 
224,38,144,2:8,96,169,77 8288 BEQ INIT yes, use this 8628 STa 5CC ; 
1828 PATA 157,26,3,169,38,157.27,3,163 ane 8638 RTS ; 
,5,157,28,31,96,85 8218 CMP #'M shave we used i 8648 ERROR LDY #255 shane brewed e 
1838 DATA 5,55,6,126,6,79,6,62,6,62,6, t before? rror 
76,8.6,8 8228 BEQ INIT yes, use this 8658 RTS ;return 
1848 DATA 8,0,8.8,0,8,168,1,926,168.146 one anyway 8668 ; 
.36,168.136,95 8218 INH ; 8678 OPEN LBA H$88  ; 
1858 BATH 24,165,281,185,:,1::,2801.165 8248 INK ;80 tü next entry 8688 STA $CC scieafr addresses 
,284,185,6,132,284,56,168 8258 INK ; 86398 LDA Hà ;abort if error 
1868 DATA 255,95,163,128,113,204,169,0 8268 CDN #526 ;end of table? 8788 STA SCH ;is detected 
-122,203,141.59.5,76, 68 8278 BCC FIND ;no, keep going 8718 STA FLAG ; 
18/8 DATA 5,168,8,145,28:,12,63,6,24.1 8288 RTS ;no More space 8728 JMP NOERR Clear error 
73,55,6,1805,1,141 €258 INIT LGA H'M sour Device cod 8738 ; 
1888 DATA 55,6,173,56,6,185,8,141,56.6 e 8748 WRITE LDY Hü ; 
,76,68,5,171,53 8188 STA $8314,H tin HATABS 8758 STA (SCB),Y ; 
1838 DATA 6,2801,0,2808,188,173.55,6,281 @318 LBA HTABLEK255 :vector table 1 8768 JSR ADDONE : 
,8,288,7,171,55,6 o byte 8778 CLC stare byte of 
1188 DATA 281,8,248,171,168,8,177,28I, 80320 STA SOIIB,K 8788 LDA LEN ;file in memory 
1571,797,32,69,6,74,177 8238 LDA HTABLE/256 ;vector table h 8738 ADC Hi sand increment 
1118 DATA 57,6,185,1,141,57,6,173,58,6 i byte 8888 STA LEN ; length 
,185,8,141,58,6 8148 STA 58Z1C,R 8818 LBA LENti H 
1128 DATA 173.55,6,285,57,6,288,27,173 @35@ RTS return 8528 ADC H8 ; 
,56,6,285,58.6,288 8168 ; 8838 STA LENt1 ; 
1130 DATA 19,169,8,141,55,5.141,56,6,1 8378 TABLE .WORD OPEN-i OPEN vector 8848 JMP NOERR iClear error 
41,57,6,141,58,6 8188 HORD NOERR-1 ;€LOSE vector 8858 ; 
1148 DATA 153,1,141,59,5,165,287,76.580 6398 Mopp READ-i READ vector 8868 READ LDA FLAG — ; 
5.0.8 8488 WORD MRITE-i WRITE vector — 8878 CMP Ha ; 
1168 DATA -i 8418  .HORD HOFUNC-i ; STATUS vector 8888 BNE DONE ; 

8428 WORD NOFUNC-i PSPECIAL vecto 8898 LBA LEN : 

p 8388 CHP ne ; 

8436 JMP START-i ¿jump to initi 6918 BNE CONT ; 

alizing 83278 ¿Dñ LENti : 
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8338 CMP 
8348 BER 
8358 CONT 
8568 LBA 
8978 STA 
8988 J5R 
8998 CLC 
t 

1888 
k for 
1818 
1828 
1838 
1848 
1858 
1868 
i878 
18088 
1838 
1188 
i118 
1128 
1138 
1148 
1156 
1168 
1178 
1186 
1198 
1288 


aa ; 
ERROR 

LDY HB š 
($CB),Y j 
SCF 
ADDONE 


;get a byte of 
file from 
Memory. incremen 


LBA 
FOF 
ADC 
57a 
LDA 
ABC 
5TÀ 
LDA 
CHP 
BNE 
LDñ 
CHP 
BHE 
LBA 
STA 
STA 
STA 
STÅ 
LDA Hi 

STA FLAG 
OK LDA SCF 
JMP NOERR 


LENSHADON  ;address and chec 
Ri : 
LENSHADGN ; 
LENSHADONti ; 
Ha : 
LENSHADOHtI ; 
LEN ; 
LENSHADOM : 
OK ; 
LEN+1 ; 
LENSHADOHt1  ; 
OK H 
88 ; 
LEN ; 
LENZ? H 
LENSHADQH : 
LENSHADONt1 =; 
# 


restore acc. 
clear error 


More from Greg Menke: 





REM xx E 

REM XX ACE NEMSLETTER xx 
REM KE i662 VINE MAPLE DR xx 
REM XX EUGENE, GR 97485 xx 
REM XX MAY 1984 $127 YEAR Ke 


REM MEREN IIED DEERD 
REM KA BENDGS BASIC LOADER 
REM xx BY GREG MENKE 
REM FXXXGOGOOOUCIOOCOEROECOICIOCCOIRCHEOOREROHIOIOK 
18 GRAPHICS 8:SETCOLOR 2,0,8:7 "Writin 
g D:AUTORIN. 5Y5, please wait..." 

28 OPEN H1,.8,8," D;AUTORIUN. 5Y5" 

i8 REAR A:IF ñ=-1 THEN 58 

48 PHT Hi,A:50T0 38 

58 CLOSE Hi:? :7 “Danei? TEND 

1888 DATA 255,255,252,28,121,31,165,65 
133,108,141, 78,21,169,29 

1818 DATA 132,11,141,74,21.163,372,141, 
214,18,169,82,141,215,18 

1828 DATA 169.25,141,216.18,169, 31,141 
;232,2,169,123,141,231,2 

i838 DATA 312,49,29,96,8,12.252,28,32,4 
3,23,188,258,1931,16? 

1848 DATA 76,141,29.,25,163,48,141, 18,7 


Vi OD — Qu Gy P$ (4 M Fe 
k £ 


5 ,169,29,141,31,25, 35 

1858 DATA 169,157,141, 214,18,169.67,i4 
1,215,18,163,3,141,716,18 

1868 PTA 76,159,23,157.67,3,i41.163,4 
3,281,1,248,18,171,183 

1878 DATA 29,201,8,288,1,75,139.29,173 
,188,23,35,8,98,8 

1888 DATA 8,162,34,168,45,76, 24, 28,162 
,31,168,68, 76,24, 38 

1898 Borg 152,:1,168.87,70,24,18,152.1 
1,168,323,75,24, 38. i7: 

1186 DATA 188,23,168,192,138,240,741,1 
$2,166,748, 238,192,136,248,215 

1118 DATA 197,144,240, 296,1392,173,248, 
43,192,172 ,240,46,192,171, 248 

1128 BATA 49,197,178,248,52,192,169,24 
8,55,192,168,2480,58,192,1067 

1178 DATA 248,61,132.166.2480,53,137, 16 
5,2480,67,192,164,248,78,132 

1148 DATA 162,2468,.71,76,181.23.1607.38. 
168,98,76,24,38,162, 58 

1i58 DATA 168,111,76,24,36,162, 58,168, 
218.76,24,10,167,38,168 

1168 PATA 162,76,24,318,162,38,168,157, 
76,24,30,162, 38,166,183 

1178 DATA 76,24,38,162,10,168,252, 76.2 
4, 30,152, 36,160, 763,76 

1188 DATA 24,36,162,38,168,222,76.24,5 
8,162,311,158,11,76,24 

1198 DATA 18,162,11,168,32.1314,284,1712 
,283,168,8,148,187,29,17 

1288 BATA 67,316,172,187,29,218,167.23, 
177,203, 281,8,248,18.24 

i718 BATA 183,110,23,12,75,38,76,:6,38 
,32,07,38,173,188,25 

1228 bala 76,181,29,1063,155,:32,78, 10,1 
63,155,32,78,18,36,172 

1218 DATA 6,228,148,96,30,218,20,38,17 
2,7,228,140,37,38,188 

1248 DATA 96,38,8,80,78,72,82,77,65,84, 
32,69,82,82,79 

1258 DATA 82,8,65,88,88,63,78,68,52,68 
,79,83,49,32,84 

1268 DATA 79,32,68,79,83,58,32,63,82,8 
2,79,82,6,68,73 

1278 DATA 82,69,67,84,75,82,89,32,78,8 
5,76,76,44,32,54 

1288 DATA 52,32,78,73,76,69,83,8,76,73 
,76,69,32,78,73 

1298 DATA 84,12,78,72,85,78,68,312,02,8 
2,82,79,82,8,73 

1388 DATA 78,86,65,76,73,68,32,388,73.7 
9,32,67,79,77,¢7 

1318 DATA 65,78,68,8,88,79,731,78,84, 52 
,76,69,78,71,84 

1328 DATA 72,32,693,82,82,79,82,8,76, 73 
,76,69,32,78,55 

1336 DATA 77,69,32,69,82,82,79,82,8, 88 
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;29,73,78,84,32 

1348 DATA 71,78,86,655, 
:76,569,32,71,83 

1358 bala $2,76,79,57,75,65,68,8,83,63 
,07,84,79,82,32 

1368 DATA 76,731,78,75,83,32,77,65.78,7 
i,75,65,68,8,68 

1378 DATA 73,83,75,32,73,83,32,78,85,7 
6,76,8,67,65, 78 

1388 DATA 84,32.82,59,05,68.47,87,82,? 
1,84,69,37,8:,55 

1538 DATA 57.84,72,82,8,65,78,68,32,73 
,78,32,78,75,76 

1488 DATA 69,:2,69,82,82,79,82,32,8,66 
,55,68,32,68,37 

1418 DATA 73,86,69,32,35,8,568,77,07, 
,52,84,73,77,693 

1428 DATA 73,85,384,32,693,82,82,79,982,8 
,9,8,8,8,8 

1438 LAüTá 8,8.255,8,255,59,224,2,225.Z 
,252,28 

i458 DATA -i 


79 


DOS Error Handler 


18 ;595 error handler by Greg Henke. 
28 ; 

38 ;Ui.8 3/12/7864 

48 ; 

56 ; 

68 ; 

78 ; 

88 ;Uses atari Assembier/Editor 

38 ; format. 

8188 ; 

8118 ; 

8128 ; 

8138 ; 

8148 ;POKE 7523 (51D6D),8 - Print erro 
r. 

8158 ; ‚1 - Don't 
8168 ; 

8178 ;POKE 7534 (S1D6E),8 - NorMai 
8188 ; ,128 - Inverse 
8138 ; 

8288 ; 

8218 ; 

8228  X-51CFC 

8216 BEGIN LDA HNEHDOSA255 

8248 STA 18 

8258 (TA 5446 

8260 LEA HNEWDOS/256 

8278 5TA ii 

8288 5TA 5458 

8238 ; 

8388 LDA 957286 ; 

8318 STA 512D6 ‘hand copiile a 


8328 
ais8 
8Z48 
8358 
8i58 
8378 
8:88 
#398 
a4aa 
8418 
8428 
LKA 
8448 
8458 
8468 
8478 
6438 
8438 
6588 
8516 
8528 
8538 
8548 
8558 
8558 
8578 
8588 
8536 
8586 
8618 
3628 
8628 
8648 
6658 
#668 
8679 
8686 
8658 
8788 
d in 
#718 
6728 
8716 
8748 
87568 
8768 
8778 
8788 
8738 
agge 
8318 
8828 
8838 
8848 
8858 
8868 
8878 
8888 


H5TARTAZ55 
512D5+1 
HSTART/256 
5120642 


LDA 
3TA 
LBA 
5TÀ 


`. 


HEHD/ 256 
744 
HEND&255 
743 
INIT 


LD6 
STÀ 
iba 
5Tü 
J5R 
RTS 
BRK 


1 
D 


INIT2 JSR BEGIN 
JSR IKIF 
JMP (SBFFñ) 
INIT LDA H$4C 
STA $191D 
LDA HINIT2&255 
STA Sisibti 
LDA HINIT2/256 
5TH $i191Dt2 
RTS 


D 
D 


NEHDOS LDA H39D 
STA $1206 

LDA #543 

STA $12D6+1 
LBA HS3 

STA $12D6*2 


START 5TA 3Z43,X 


bü5. 
318 
CHP 
BER 
LPA 
CHP 
BRE 
JHP 


ERROR 
Hi 
EXIT 
FLAG 
Re 
EXIT 
CONT 


D 
3 


EXIT 
RTS 
INDEX .BYTE 8 
ERROR .BYTE 8 
FLAG .BYTE @ 


LBA ERROR 


INVERSE .BYTE 8 


z 
D 


?J5R to the 
error handling 
¿routine into 
1505. 


D 
D 


;set LOMEM past 
;end of 
;prograsm. 


smOdify MEM. SAU 
routines to 

AND to program 
;initialization. 


s 
# 


reset the 
modified BOS 
shack ta normal 
ron BOS cail. 


# 
£ 
7 


‘load Dü5. 


code we repla: 


CANTREAD LOH HCR/255 


LDY BCR&Z55 
JMP PRINT 


88368 
0388 
#918 
6528 
8328 
8948 
8958 
8368 
8378 
8938 
89398 
1888 
1818 
1828 
1828 
1848 
1858 
1868 
1678 
1888 
1938 
1188 
iii 
1128 
1138 
1146 
1158 
1168 
117808 
1188 
1198 
1288 
i2i8 
1228 
1238 
1248 
1258 
1268 
1278 
1288 
1238 
1388 
1316 
1328 
1338 
1348 
1558 
1568 
1278 
1388 
1298 
1488 
1418 
1428 
14:18 
1448 
1456 
i466 


ENDOFILE LOX REOF/256 


LDY 
JMP 


NEOFŠ255 
PRINT 


DRiUENUM LEK HNUMERR/256 


LEY 
JHP 


HNUMERRA255 
PRINT 


TIMEGHT LDE HTO/ 256 


D 


LDY 
JMP 


CONT 


# 


BADSECTOR LPE 885/256 


TAY 
CPY 
BE 
CPY 
BEG 
CPY 
BEG 
CPY 
BEG 
CPY 
BEQ 
EPY 
BEG 
CPY 
BE 
CPY 
BEü 
CPY 
BEQ 
CPY 
BEG 
CPY 
BEG 
CPY 
BEG 
CPY 
BEQ 
CPY 
BEQ 
CPY 
BEQ 
JMP 


LDY 
JHP 


HT0&255 
PRINT 


LBA ERROR 


11:8 
TIMEOUT 
#168 
DRIUENUM 
H126 
ENDOFILE 
H144 
CANTREGD 
#173 
BADSECTGR 
Hir? 
APPENDITOZ 
H171 
POINT 
#178 
NOTFOUND 
#169 
BIRFULL 
H168 
CMDINUALID 
Hi67 
FILELOCKED 
Hibb5 
LENGTH 
Hi65 
FILERROR 
Hi64 
LINK5 
#162 
DISKFULL 
EXIT 


#554255 
PRINT 


dPPENDITOZ LÖH #Ai/ 256 


LEY #ai&zZ55 


JMP 


PRINT 


POINT LOK HPI/ 256 


LbY HPIÁ255 


JMP 


PRINT 


NGTFOUND LDH HNF/256 


LOY tiNF&255 
JMP PRINT 


DIRFULL LDH HDF/255 


LBY DF &255 
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1478 JMP PRINT 

1488 CHDINUALID LDK HCMP/256 
1498 LDY HCHP&255 

1588 JMP PRINT 

1518 FILELOCKED LON HLOCKED/256 
1528 LDY HLOCKEDA255 

1538 JMP PRINT 

1548 LENGTH LDK UDLE/256 

1558 LDY #DLE&255 

1568 JMP PRINT 

1578 FILERROR LOX HFNE/256 

15886 LDY HFNE&255 

1598 JMP PRINT 

1688 LINKS LDK HLB/256 

1618 LDY HLB&255 

1628 JMP PRINT | 
i6z8 DISKFULL LDK HDSKFULL/256 
i648 LDY HDSKFULL&255 

1656 PRINT STN SCC 

1568 STY ŠČE 

1678 LDY Hà 

1688 STY INDEX 

i698 J5R RETURNS 

1788 LOOP LDY INDEX 

1718 INC INDEX 

1728 LDA (SCB),Y 

i738 CMP He 

1748 BEQ DONE 

1758 CLE 
1768 ADC 
1778 JSR 
1788  JMP 
1798 DONE 
1888 LDA ERROR 

1818 JMP EXIT 

1828 RETURNS LDA #155 
1818 JSR PRINTIT 
1848 LDA #155 

1858 JSR PRINTIT 


INVERSE 
PRINTIT 
LBP 

J5R RETURNS 


1868 RTS 

1878 PRINTIT LDY SE466 ;screen editor 
i888 STY VECTOR ;PUT byte 

1838 INC VECTOR routine ti 
1588 LBY SE487 ; 

i918 STY VECTOHT1 : 


i928 JMP (VECTOR) 

1928 VECTOR .BYTE 8,8 

i948 BS .BYTE "FORMAT ERROR'',8 

i958 ñi .BYTE “APPEND DOSi TO DO52 ERR 
üR",8 

i968 DF .BYTE "DIRECTORY FULL, 64 FILE 
57,8 

1378 NF .BYTE "FILE NOT FOUND ERROR", 8 
1388 CMP .BYTE “INVALID KIO COMMAND", G8 
1938 BLE .BYTE "POINT LENGTH ERROR", ë 
2888 FHE .BYTE "FILE NAME ERROR',& 
2618 PI .BYTE "POINT INUALID'",G8 

2828 LOCKED .BYTE "FILE IS LOCKED",8 


Ruth Ellsworth: PILOT Character Maker 





18 R:PILOT CHARACTER MAKER UTILITY 

28 R:Ruth Ellsworth 

i8 R:ACE NEWSLETTER 

48 R:MAY 1984 Eugene, Oregon 

98 R:LINES 458 TO 478 FIND OUR LOCATIO 


N IN THE ARRAY. BECAUSE OUR GRID HAS 

NINE NUMBERS BETWEEN 8 AND 8 

b8 R:USING 8 AS A STARTER, HE ARE ABLE 
10 LOCATE THE RELATIONSHIP OF EACH Uñ 

LUE TO NUMBER ADDED 

78 R:TO MEMORY LOCATION OFFSET. IF TH 

E CONSISTANT REALTIONSHIP OF LOCATIONS 
HñD NOT APPLIED 

80 R:ME WOULD HAVE HAD TO USE THE LESS 

MATHEMATICAL MEANS SHONN IN THE R:EXAM 

PLE MODULE AT THE END OF 

38 R:THIS LISTING. 

i88 ER CLEAR 

. 118 C:HX--78 

i28 C:HY-35 

138 C:HH-1548 

148 H:XCOUNTER 

158 HU:KGRID 

168 J:XJOY 

i78 KCOUNTER 

i88 C:eBHM-8 

198 C:HH-HMt1 

288 JüMCLG840 :XCOLUNTER 

218 E: 

228 *GRID 

218 GR:GÜUTO-78,44 

248 GR:4CTURNS8; DRAM? 2} 

258 GR:ICTURN98;689; TURN98; DRAM72 : TURN 
7-38;603; TURN-90; DRAW72) 

268 ER:TURMIB; GOF; TURN98; DRAM? 2 

278 GR: TURN-38 ; G09; TURN-96; G03; TURN-98 
: PRAM72 

288 GR:I(TURN98;GU9; TURNIG ; DRAM? 2 ; TURK 

~38; 609 ; THRN-38; DRAW723 

298 GR: TURNTOS 

i88 E: 

318 xJ0y 

i28 C(ZJ0-1):HY-HY+9 


338 
i48 
J58 
368 
378 
i88 
i98 
488 
4i8 
428 
4:8 
448 


C (Z J8-8) : HK-HR t9 

€ (Z J8-2) :HY-tiY-9 

C (Z J8—4) : HX-i4-9 

C CHK C^ 782 :#R=-78 

CUIR 772 :HHz-7? 

CCHY (7282 :8Yy--28 

C C1Y? 35) : HY- 35 

GR: GOTOHB ,ttY 

GR: PENRED ; 4 (DRAW: TURN38) 
GR:PENYELLOH; 4 (DRAMI : THRN98) 
Jt8B764-18) : CHAR 
Jt8B764-42) : KERASE 

458 J(ZT8-1):XFILL 

468 J(ZT8-8):XJO0Y 

478 E: 

488 XFILL 

498 GR:FILLI 

988 C:HC-(HIMH-22/3*8[Column location 
518 C:HR-(OIYt12/9*3IRow location 

528 C:HOTURKBENC [Memory offset 

538 C:HU-I1548 HI0[1548 has to be used i 
n this equation not HH 

548 CUIC-8) : GBHU-128 

558 CHC}: eBHU-64 

568 CUIC-2) : GBHU-32 

578 CHC 32 : eBiU-16 

588 € (40-4) : GBHU-8 

598 CIHC-5) : GBHU-4 

508 CHC 6? : GBHU-2 

618 C(HC-7) : GBitU- 1 

628 J:XJOY 

618 E: 

648 XERASE 

658 GR:FILL9 

668 C:HC-CHR-2)/9*8 

678 C:HR- GUY 412/943 

688 C:HO-HRX8 1C 

638 C:HU-15484t10 

788 C:eBHU-B 

718 GR:6095;TIRNS8;601; TURNIG 

728 GR: PENERASE ; DRAWS; THRN-98 ; DRAM1: TH 
RN-98;DRAN7 ; SCTURNS8; GOL ; TURNJ8; DRAM7; 
THRN-38; GO ; THRN-38; DRAW7} 

738 GR:DRAM-7;PENYELLOM; GO-1; THURN-38;D 
RANS; TURN98 

748 (:8B764-49 

758 J:XJO0Y 

768 E: 

778 XCHAR 

788 C:HH-8B1548t8B1541t8B1542t0B154:ite 
B1544t8B1545t8B1546t0B1547? 

738 C:HG-8B1548t0e81549t8B155810B155148 
B1552t8B1551t0B1554*8B1555 

888 C:HF-8B1556t8B1557*88155818B1559*6 
B1568t8B1561t8B1562t8B156Z1 

818 C:HE-8B1564t0B1565*8B1566t6B1567*8 
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B1568t8B1569t8B1578t0B1571 
828 C:HD-8B1572t8B1571t8B1574t8B1575t8 
B1576t0B1577t8B1578t8B1573 
818 C:HC-8B1588t8B1581t8B1582t88158346 
Bi584t8B1585t8B1586*t8B1587 
848 C:HB-8B1588t8B1589*8B15981G0B159148 
B1532t0B15331t8B1594t8B1595 
858 C:HA4-0B1536t8B1597t8B1558t0B1592348 
B1688t8B1581*GB1682tGB1687 


868 T:ROM i = HA RON 2 = HB ROW š 
= Ht 

878 T:ROM 4 = HD ROM 5 = HE RONG 
- HF 

888 T:ROM 7 = HG RON 8 = HH 

838 WRITE: D: MAKER, HA 


388 
918 
928 
3:8 
948 
958 
268 


WRITE: D: MAKER, HB 

WRITE: D: MAKER. HE 

WRITE: D: MAKER, HD 

WRITE: D: MAKER, HE 

WRITE: DS MAKER, HF 

WRITE: D: MAKER, HG 

WRITE: D: MAKER, HH 

378 CLOSE: D: MAKER 

388 PA: 488 

998 E; 

1888 R: EXAMPLE 

1818 R:JUC(HY-Z151:%ROWI(LOCóATES ROM 

1828 R:THESE LINES TO LOCATE ROMS 1 TO 
8 WOULD BE FOUND IN THE FILL MODULE 

1838 R:C(HE--78):8B1548-128(LOCATES CO 

LUMN 

1848 R:THESE LINES WOULD BE FOUND IN X 

ROW MODULES 


18 R: CHARACTER RETRIEVAL ROUTINE 
28 READ: D: MAKER, ta 
38 READ: D: MAKER, HB 
48 READ: D: MAKER, HC 
58 READ: D: MAKER, UD 
68 READ:D: MAKER, HE 
78 READ: D: MAKER, HF 
88 READ: D: MAKER, HG 
38 READ: D: MAKER, RH 
188 CLOSE:D: MAKER 
118 E: 


9 R:ñNTIC AUGUST 1983 
7 R:PHIL AND KATHY BERGH 
18 GR: QUIT 
28 T:Please wait while the character s 
et 15 Moved. This takes about 28 seco 
nds. 

GOTO PAGE 9 


JOHNNY’S PAINTBOX 


Johnny’s Paintbox is a drawing program offering six colors and a 
number of automatic shape generators. In addition to the normal line 
drawing mode there are modes to draw Rectangles, Triangles, Circles 
the Alphabet as well as modes to Save and Load pictures. 


NORMAL MODE 

All other modes return to the normal line drawing mode. Lines are 
drawn using a joystick in player #1 position. The trigger must be press- 
ed to cause the line to be drawn. This mode is indicated by a horizon- 
tal line to the right of the numbers at the bottom of the screen. The col- 
or of the line indicates the color active at the moment. You can select 
a new color by pressing the number key corresponding to the desired 
color. This is also true for the shape modes. Color 0 can be used to 
erase lines, (again, the trigger must be pressed). 

The ‘OPTION’ key can be used to clear the screen. It is only active in 
the normal mode. There is also a ‘fill’ function in the normal mode. It is 
activated by pressing the spacebar. An area enclosing the cursor will 
be filled in using the color currently active. Sometimes only part of the 
area will be filled in and it will be necessary to move to a blank portion 
and use the spacebar again. Only background area can be filled in. 

The speed of the cursor can be changed using the key with the Atari 
symbol. When you press it, a number representing the current speed 
will appear. You may now select any number 1-9 with 1 being the 
fastest. Any other key will return you to normal mode with the speed 
unchanged. 


CIRCLE MODE 

The circle mode is entered by pressing the ‘C’ key. A circle in the ac- 
tive color will appear to the right of the numbers. Position the cursor 
where the circle center is to be located before you press ‘C’. Pushing 
the joystick up will increase the size and down will decrease the size 
of the circle. If you return to the original cursor size, no circle will be 
drawn. If any part of the circle reaches an edge you will not be allowed 
to increase its size further. Change the circle color by using the 
number keys. The circles are actually ovals because of the difference 
in horizontal and vertical sizes of the pixels. Press the spacebar to exit 
the circle mode when you have the size of circle you desire. 


RECTANGLES 

Use the ‘R’ key to enter this mode. The cursor must be positioned 
where the lower left corner of the rectangle will be. Vertical stick 
movement incereases and decreases the vertical size of the rectangle 
while horizontal movement controls the horizontal size. Number keys 
allow you to change the color and the spacebar is used to freeze the 
rectangle and exit the mode. This mode is useful to erase blocks of 
area on the screen. Just expand the rectangle out and contract it back 
to a point before hitting the spacebar. 


TRIANGLES 

Enter using the ‘T’ key. Horizontal joystick movement, (without the 
button pushed), controls the baseline of the triangle while vertical 
movement controls the vertical position of the vertex. The starting 
position is at the leftmost edge of the baseline. By pushing the fire 
button while moving the stick horizontally, you can control the 
horizontal position of the vertex. This mode is a little trickier than the 
others and may take some practice. Again, use the spacebar to exit. 


ALPHABET 

Uppercase letters of the alphabet can be drawn in this mode. The 
starting position indicates the upper left corner of the first letter. Enter 
using the ‘A’ key. An ‘A’ in the active color indicates you are in the 
alphabet mode. The cursor will move after each letter is drawn. If you 
want to go back, the backspace key works. Again, number keys can be 
used to change the current color. For this reason, you can’t draw 
numbers, just letters. The program won't let you draw letters if your 
position is too far to the right or too low for complete letters to be 
drawn. You must use the RETURN key to leave this mode since the 
space is a valid character. 


SAVE MODE 

When you have finished your sketch and wish to save it to disk, 
press the ‘S’ key. A question mark will appear to the right of the 
numbers. It is asking for a filenumber. You have a choice of ten from 0 
thru 9. Press one of these number keys to save your picture. If a pic- 
ture of that number already exists it will be written over. You will 
automatically be returned to the normal mode when the save is com- 
plete. Pressing any key other than 0-9 will abort the save. 


LOAD MODE 

Press ‘L’ to load a file. The question mark indicates you should 
press a number 0-9 as the filenumber. The program will load the file to 
the screen and return to the normal mode. There is no provision to 
allow for a file not existing, an error condition will occur and stop the 
program. To prevent this you should save something under each 

filenumber, even if it is a blank screen. 
— Stan Ockers 


EASY 


MAC/65 and AMAC (Atari's Macro Assembler) owners, EASY ($40 
from Superware, 2028 Kingshouse Rd., Silver Spring, MD 20904) is 
here to help you. If you know Basic well and have just a smattering of 
Assembly Language experience, and have 48k memory, AMAC or 
MAC/65 Assemblers, and disk drive, Easy may be just what you are 
looking for. 

Easy is a collection of Macro routines. Easy consists of three 
libraries labeled KERNAL, PMGR, and SCROLL. All libraries require 
KERNAL to be included. KERNAL contains the necessary runtime 
code, it also contains I/O, integer math, graphics, sound, error handl- 
ing, etc. PMGR contains routines for player/missle graphics. SCROLL 
contains routines for automatic fine scrolling. 

The runtime code becomes part of your routine which can be a 
blessing for debugging your code. On the other hand much of the run- 
time code is not really necessary. Errors always bring a graphics 0 and 
an error number. 

Many of the commands are very much like their Basic counterparts. 
Macros range from the simple POKE to GOSUB which preserves X and 
Y registers. 

Documentation is a little skimpy and the source code has no 
remarks to let you know what’s going on or why. Documentation con- 
sists of a 51⁄2 X 8-inch booklet and a quick reference card. The booklet 
gives a brief explanation of requirements and lists some simple ex- 
amples for each macro showing the expanded code. | found the in- 
struction booklet a bit awkward to use while typing as it is stapled 
rather than bound or looseleaf. | finally resorted to a paperpunch and 
small notebook | had available. It improved the booklet’s usefulness 
immensely. The macros are scattered through the 57 pages without 
much order. | like to see more remarks in the source code. 

| had some problems with a couple of the macros. One in particular 
was the drawto macro. After plotting a point the drawto line began one 
position to the right of the plotted point. When | looked in the code | 
found the macro moved the current X,Y position which was un- 
necessary and gave the wrong starting position. 

The scrolling macros are relativly easy to implement and work very 
well. 

| believe this package will be a good tool for the beginner but as a 
serious development tool it has some limitations. 

— Chuck Ross 


PHAROAH'S TOMB 


You have been searching for years and have finally found the tomb 
of Ramakanaman. But you have to find a series of keys to enable you 
to enter the treasure chamber. Once you have reached the treasure 
chamber, you are given a chance to enter another and then another, 
with each one requiring more keys to unlock. 

Use joystick 1 to control the man appearing at the top left of the 
screen. Move him to pick up the key appearing at a random position in 
the maze. Once you have found the key you must take it and deposit it 
at the door of the treasure chamber and go and get another until you 
have found all the keys required for the door. 

You will see a line of keys under the game's name at the top of the 
screen. This shows you how many you must find in the current level. 

Five enemies materialize from certain points in the maze. They 
wander around trying to protect the treasure. These enemies are birds, 
serpents and demons. Every so often one of these goes berserk and 
dashes around the maze. If the berserker touches another enemy, the 
touched one will disappear temporarily and may help you get by. But 
be careful, when the mad creature calms down the invisible ones will 
reappear. 

You have two forms of protection: 1. Teleport: this will reposition 
you at a random spot in the maze; and, 2. Super Splatter: this will make 
all the creatures disappear for a moment. Each time you resort to pro- 
tection adds another key you must get to unlock the door. If you ever 
get 18 keys across the top of the screen, the game ends. A T or S at 
screen top right indicates the protection mode. You may toggle bet- 
ween them with the SELECT key. To use your protection, push the 
Space Bar. 

Pressing the fire button will freeze the action so you may scroll 
around the screen to plan your path, find the key, or find your man 
after Teleporting. 

— Sydney Brown 
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SUPERLOAD 


(reprinted from the April '84 issue of the Atari Computer Club of OKC) 
Presented here is a method for loading assembler programs from 
within a BASIC program. Instantly. That's right — no more irritating 
“Initializing...” messages on the screen while data is read and poked 
into storage. In addition to this capability, you will also have a USR call 
which can move or initialize a multi-page area of Storage — the two 
major reasons for using machine language programming in a BASIC 
environment. And all it is going to cost you is 100 bytes of storage. 

Up until now there have been two popular methods for loading 
assembler code into BASIC programs: reading DATA statements with 
decimal numbers representing object code, and reading DATA 
statements with hexadecimal numbers representing object code. The 
Second method is more efficient as far as Storage is concerned, and 
also permits easier modification (as long as it's extremely minor, such 
as setting break points for testing). Unfortunately, both methods are 
slow. 

A third method, letting the object code be represented by ATASCII 
characters has been used, rarely, but is actually a far preferable 
method in terms of storage and load speed. However, this method has 
its own problems. Several ATASCII characters, such as the quote 
character and the EOL character, cannot appear in the string data. 
There is a variation of this method: retaining the object code on disk 
and reading it into the string at run time; however, this is extremely 
cumbersome for cassette users. 

Fortunately, a fourth scheme has recently arrived: the code can be 
“hidden” between two BASIC tables. | refer you to "Atari Safe RAM" in 
the October, 1983 issue of COMPUTE. | have chosen this method to in- 
troduce a utility I’ve found useful. I'll give you a 100 byte machine 
language program which is extremely easy to install. You can then call 
this routine to load your own assembler programs using the hex- 
adecimal digit method — only without any perceptible delay. 

Listing One is the program which will create another BASIC pro- 
gram on either disk or cassette which inserts SUPERLOAD into a cur- 
rent program in memory. If you are a cassette user, change Line 80 to: 
OPEN #1,8,0,“C:”. When you enter and run this program, you're ready 
for an example of how to utilize SUPERLOAD. 

Enter the program in Listing Two, but be sure to save it before pro- 
ceeding. Note also in Listing Two at Line 10 that you will have to 
dimension a string, ASMS, which will be used as a buffer string. Now, 
all you have to do to insert SUPERLOAD into the program is type: 
E.“D:SLDATA”(disk users), or E.“C:”(cassette users). Several BASIC 
statements will be read in and executed in immediate mode, rearrang- 
ing several BASIC pointers to protect SUPERLOAD, which is inserted 
at the same time. This isa permanent insertion — if you now save the 
program normally, SUPERLOAD will be retained whenever you reload 
the program. In other words, you only have to perform the ENTER pro- 
cedure once. From the point at which the program is saved, no further 
action is required. 

Upon execution, a message appears in the upper left hand corner of 
the TV screen, repeating itself diagonally towards the bottom. This 
displays two of the functions of SUPERLOAD. Line 40 contains the 
message displayed on the screen in hexadecimal format. Line 50 
packs the data at the location into variable ADSCR — the address of 
Screen memory. If nothing happens, or the word "superload" does not 
appear, you must go back to Listing One and check each line again. 

The USR call has the following format: X — USR(ADML,ADSTR,AD- 
DEST,STRLL,OPTION). Where ADML is the address of ML$; ADSTR is 
the address of the input data; ADDEST is the address of the output 
location; STRLL is the length of the input data. If OPTION is O STRLL 
cannot exceed 255. This is the hexadecimal pack, as in Line 40. If OP- 
TION is 1 STRLL cannot exceed 65535. No packing occurs and the str- 
ing is moved as is, as in Line 60. 

If the above procedure checks out, then enter the following in im- 
mediate mode: POKE 
ADSCR,119:X = USR(ADML,ADSCR,ADSCR + 1,959,1). The entire 
Screen should fill with the character “w”. This initialization routine is 
actually a move routine trick which has been used by assembler pro- 
grammers for years. The first POKE acts as a "seed" and the move: 
simply propagates this byte into the next and Succeeding locations. 

Here are a couple of more tricks you can do with SUPERLOAD. In- 
stead of the following statement: ADSCR — PEEK(88) 4- 256* PEEK(89), 
use ADSCR = USR(ADML,88,212,2,1). Here’s how it works. The two 
bytes beginning at location 88 are moved to locations 212 and 213. 
These locations are reserved by BASIC for a return value to be passed 
back to a BASIC variable after a USR call. So, as long as you move two 
bytes to 212 and 213, you can assign any low byte-high byte pair to any 
BASIC variable! 
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Here's another one — instead of using the following statement to 
divide a variable into low and high bytes: HI 2 INT(X/256):LO = X- 
HI *256, use: Y =USR(ADML,X,0,0,1). This one is a little more subtle. 
Notice the length parameter is 0. All SUPERLOAD does is pull the 
parameters off the stack, storing them into their assigned storage 
locations, and executes a return. But since X was passed as a 
parameter, even though it is not necessarily an address, it will be divid- 
ed into low and high byte form and stored at the parm1 memory loca- 
tions — 96 and 97. So, after the last example is executed, the low byte 
of X can be retrieved by PEEK(96) and the high byte by PEEK(97). Y isa 
dummy variable only. Both of these last examples are more efficient 
than BASIC and execute faster. | offer them as examples only — it is 
up to you to decide if they are easier to use than their BASIC counter- 

arts. 

‘ The most efficient utilization of the program load feature is seen 
when you use a BASIC String to contain the object code. If you use the 
same value for ADSTR and ADDEST — namely, the address of the str- 
ing — the resulting object code will be packed into the first half of the 
String and will then be directly executable. But the program listing is 
unchanged. You therefore have a string which you can list on the 
screen and alter with the editory, but when run is object code! 

If you’ll type in Listing Three you can modify Listing Two to see 
what | mean. This program copies the character set (at Line 70) and 
modifies the character passed via a USR to be a different color. The 
method used is artifacting — every other pixel on the screen is 
bypassed. Note the string defined by Lines 40 and 45 is executed 
directly by line 75 — after the hexadecimal code has been packed into 
object code by Line 50. | 

Well, there it is. I’m sure you'll find many more uses for 
SUPERLOAD besides the ones I've illustrated. And remember all you 


future software authors — no more "Initializing..." messages! : 
— Terry Barker 


T.A.C. 


T.A.C. (Tactical Armor Command, Avalon Hill, $30.00) is a World War 
Il armored simulation. You choose tanks, field guns, and infantry from 
any one of four countries (U.S., Great Britain, Germany, and Russia). 
You direct their attack upon the enemy forces. 

From the menu you choose one or two players, skill level (if playing 
the computer), any one of five Scenarios, and the points each player 
gets for his forces (from 12 to 224). 

The game is a Stepped-up version of the TANKTICS game (also by 
AVALON HILL). This time, the computer not only does all the com- 
putations, but controls the map as well. Each turn consists of several 
parts. The first part is tactical Sighting. This is when the “active” unit 
looks for all units in its line of sight (friendly and enemy). Next is the 
strategic sighting. Now the tactical sighting is put on the overall map. 
Then comes the movement phase. Players set the speed for their 
units. Then comes the indirect fire phase. Armor units may fire in- 
directly at enemy units (both seen and unseen). Infantry and field guns 
may load/unload in this phase. Then comes the second part of the 
movement phase. When a player presses the button, the unit begins to 
move. Players can turn their units by moving the joystick, but it is very 
easy to oversteer. 

| love the indirect fire mode. With a Squadron of tanks, a skilled 
player can wipe out most slow tanks, all dismounted field guns, and 
infantry halftracks. In the engagement scenario, a player can lose half 
his force in a single turn. But to keep a player from losing interest too 
Soon, there are four skill levels and four other Scenarios. These range 
from static defense to stalemate. In Some scenarios there are 
minefields to worry about, besides the other player. 

The graphics are excellent. The scrolling is outstanding. There is 
Some sound, but this is not the same quality as the graphics. The 
game designer must have spent some time collecting all the informa- 
tion on almost 40 different tanks. The computer determines the effec- 
tiveness of a shot by computing the armor thickness, weapon caliber, 
time tracked, and speed. 

Overall, | think this is very good. But as a Squad Leader fan, | find a 
maximum of eight units constricting. And the map is not very large 
once a main battle tank gets rolling. This is one of the best wargames 
l've seen in a long time. 


—Aaron Ness 


Atari Computer Enthusiasts 


A.C.E. is an independent, non-profit and tax exempt computer club 
and user’s group with no connection to the Atari Company, a division 
of Warner Communication Company. We are a group interested in 
educating our members in the use of the Atari Computer and in giving 
the latest News, Reviews and Rumors. 


All our articles, reviews and programs come from you, our members. 


Our membership is world-wide; membership fees include the A.C.E. 
Newsletter. Dues are $12 a year for U.S., and $22 a year Overseas Air- 
mail and include about 10 issues a year of the ACE Newsletter. 
Subscription Dep’t: 3662 Vine Maple Dr., Eugene, OR 97405. 


President— Kirt Stockwell, 4325 Sean , Eugene, OR 97402 
503-689-5355. 

Vice Pres— Larry Gold, 1927 McLean Blvd., Eugene, Or 97405 
503-686-1490 

Secretary— Bruce Ebling, 1501 River Loop #1, Eugene, OR 97404 
503-688-6872 

Librarian— Ron and Aaron Ness, 374 Blackfoot, Eugene, Or 97404 
(503)689-7106. 

Editors— Mike Dunn, 3662 Vine Maple Dr. Eugene, Or 97405 

503-344-6193 

Jim Bumpas, 4405 Dillard Rd. Eugene, Or 97405 

503-484-9925 

E.R.A.C.E. (Education SIG Editor)-Ali Erickson, 295 Foxtail Dr., Eugene, 
OR 97405 /503-687-1133 

E.R.A.C.E. Corresponding Secretary-Robert Browning, 90 W. Myoak, 
Eugene, OR 97404 (503)689-1513. 


Send 50c stamps or coin ($1 overseas) to the Ness' for the new, up- 
dated ACE Library List —new in May 84 ! 


Best of ACE books 


Volume 1 contains bound issues of the ACE Newsletter from the first 
issue, Oct 81 to June of 1982 


Volume 2 covers July 1982 to June 1983 
Only $12 each ($2 extra for Airmail). Available only from: 


George Suetsugu 
45-602 Apuapu St 
Kanoehe, HI 96744 


SortFinder 1.2 

A composite index of Atari related articles from 5 popular computer 
periodicals from Apr '81 to June '83, including ACE. Only $6 for ACE 
member from: 

Jim Carr, Valley Soft 

2660 S.W. DeArmond 

Corvallis, OR 97333 





NIHUSIASTS 


2662 Vine Maple D: Eugene OR 97405 


FIRST 
CLASS 
MAIL 








TYPESETTING 
FROM YOUR COMPUTER 


ATARI OWNERS: If you have a modem, text editor, and com- 
munications program to send ASCII files, you should consider 
the improved readability and cost savings provided by 
TYPESETTING your program documentation, manuscript, 
newsletter, or other lengthy text instead of just reproducing it 
from line printer or daisy-wheel output. Computer typesetting 
by telephone offers you high quality, space-saving copy that 
creates the professional image you want! Hundreds of type 
styles to choose from with 8 styles and 12 sizes “on line’ 
And it’s easy to encode your copy with the few typesetting 
commands you need. 
COMPLETE CONFIDENTIALITY GUARANTEED 


— Bonded for your protection — 
PUBLICATION DESIGN, EDITING, & PRODUCTION 


Editing & Design Services 
Ine. ` 
30 East 13th Avenue na Eugene, Oregon 97401 
Phone 503/683-2657 


Bulletin Board 

(503) 343-4352 
On line 24 hours a day, except for servicing and updating. Consists of 
a Tara eguipped 48K Atari 400 with a TARA keyboard, 2 double-density 
double sided disk drives with an ATR 8000 interface, 2- 8” double 
density disk drives, an Epson MX80 printer, a Hayes SmartModem; 
running the ARMUDIC Bulletin Board software written by Frank L. Hu- 
band, 1206 N. Stafford St., Arlington, VA 22201. See the Nov ’82 issue 
for complete details. 


